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Abstract 


Recent  publications  have  claimed  reasonable  success  with  the 
Chao-Seader  correlation  in  predicting  K-ratio  data  for  paraffins,  ole¬ 
fins,  naphthenes,  aromatics  and,  to  a  limited  extent  for  dissolved  non¬ 
hydrocarbon  gaseous  components,  such  as  carbon  dioxide  and  hydrogen 
sulfide,  in  multicomponent  hydrocarbon  mixtures.  This  correlation, 
specifically  designed  for  digital  computer  calculations,  takes  into 
account  the  composition  dependency  of  the  individual  component  K- 
ratios.  It  is  a  very  versatile  source  of  data  covering  a  wide  range 
of  temperature  and  pressure. 

Two  rigorous  multicomponent  distillation  column  calculational 
procedures,  the  Thiele-GeddeJ-^^^and  a  modified  version  of  the  ap¬ 
proach  proposed  by  Bergamini ^ ,  incorporating  the  Chao-Seader  correla¬ 
tion,  were  programmed.  A  single  feed  two  product  distillation  column 
was  chosen  as  the  column  model  for  these  computer  programs.  To  test 
these  programs  and  also  to  compare  the  combination  of  the  Chao-Seader 
correlation  with  a  rigorous  distillation  column  calculational  procedure 
to  existing  rigorous  calculations,  several  literature  example  problems 
were  calculated.  The  calculated  results,  using  polynomial  and  Chao- 
Seader  data,  compared  well  within  the  twenty  percent  variation  in 
liquid-vapour  and  temperature  profiles  obtained  by  Stocking,  et.  al.^^ 
for  example  problem  2  using  various  sources  of  conventional  polynomial 
data. 

For  the  rigorous  design  of  distillation  columns,  using  these 
programs,  the  trial  and  error  approach  was  taken.  As  a  starting  de¬ 
sign  approximation  the  Fenske-Underwood-Erbar  and  Maddox  short  cut  de- 


I 


sign  combination  was  programmed.  Also,  the  effects  of  varying  differ¬ 
ent  specified  independent  variables  were  investigated  for  a  typical 
design  problem  and  some  of  the  calculated  results  were  plotted.  These 
plots  are  presented  in  Appendix  I.  If  the  short  cut  results  did  not 
agree  well  with  the  rigorous  calculations,  the  plots  were  then  used  as 
a  guide  in  estimating  the  desired  change  in  the  independent  variables 
for  the  rigorous  Thiele-Geddes  or  modified  Bergamini's  calculations  to 
meet  the  required  specifications.  To  illustrate  this  design  procedure, 
problems  5,  6  and  7  (a)  with  specified  split  on  two  components  and  7  (b) 
with  the  split  on  one  component  and  a  specified  condenser  temperature 
were  solved. 

The  computer  calculation  time  requirement  for  problems  using 
the  Chao-Seader  data  was  only  about  three  times  that  required  for  poly¬ 
nomial  data.  When  considering  the  work  in  curvefitting  data  to  poly¬ 
nomials  for  each  problem  where  a  different  range  of  conditions  is 
specified,  the  additional  time  requirement  for  the  versatility  of  a 
general  correlation,  such  as  the  Chao-Seader  is  well  worth  while. 

For  the  problems  considered  in  this  thesis,  the  Chao-Seader 
data  was  found  t©  be  sufficiently  reliable  for  design  purposes. 

However,  caution  must  be  exercised  at  other  conditions  until  some  feel 
is  obtained  for  the  reliability  of  this  data  at  the  particular  tempera¬ 
ture,  pressure  and  composition  ranges  involved. 
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(1)  Introduction 


The  design  of  multistage  separation  equipment  in  the  petroleum 
industry  becomes  complicated  when  multicomponent  systems  are  considered. 
Calculations  for  such  systems  are  often  long,  repetitive,  and  tedious. 

The  design  of  stabilizers  is  but  one  such  example  where  the  complexity 
of  the  rigorous  hand  calculations  has  led  to  a  large  variety  of  approxi¬ 
mate  short  cut  design  methods. 

The  application  of  modern  high  speed  digital  computers  can  pro¬ 
vide  a  rapid  reliable  rigorous  solution  to  the  stabilizer  design  problem. 
Thus,  in  a  relative  short  period  of  time,  a  number  of  possible  plant 
schemes  and  operating  conditions  can  be  investigated  and  the  "optimum" 
design  chosen. 

In  the  design  of  multicomponent  multistage  separation  devices, 
the  vapour-liquid  equilibrium  data  is  of  foremost  importance.  It  is 
often  not  an  easy  task  to  convert  available  equilibrium  data  to  a  form 
which  is  easily  accessible  to  a  computer.  This  often  involves  fitting 
data  from  a  graph  or  a  chart  to  a  suitable  polynomial  from  which  the  com¬ 
puter  can  calculate  the  data  as  required.  In  the  stabilizer  problem  the 
feeds  considered  may  contain  a  wide  range  of  components  from  dissolved 
nonhydrocarbon  gases,  such  as  carbon  dioxide  and  hydrogen  sulfide,  to 
heavy  hypothetical  components  of  the  Cjq  fractions.  The  equilibrium 
data  for  such  systems  does  not  only  depend  on  the  individual  pure  compon¬ 
ent  equilibrium  data  alone,  but  also  on  the  compositional  effect  of  all 
the  component  interactions  on  the  equilibrium  relationship. 
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Of  the  many  existing  sources  of  K-ratios  the  most  widely  known 

r  4 1  43*) 

are  the  N.G.S.M.A.  K-ratio  charts:  ’  r  J  These  charts  correlate  K- 
ratios  in  terms  of  temperature  and  pressure;  the  effect4 of  composition 
is  taken  into  account  by  an  additional  parameter  known  as  the  conver¬ 
gence  pressure.  The  range  reported  is,  unfortunately,  limited  to  light 
hydrocarbons  up  to  decane  and  only  scant  data  is  presented  for  hydrogen 
sulfide,  carbon  dioxide  and  hydrogen.  When  this  data  ds  curvefitted  in 
a  form  acceptable  to  a  computer,  usually  a  polynomial  in  temperature,  a 
serious  drawback  is  encountered  in  that  new  data  may  have  to  be  prepared 
every  time  a  problem  is  run  at  new  conditions. 

As  a  result,  there  exists  an  increasing  need  for  an  accurate 
and  consistent  method  of  calculating  composition  dependent  equilibrium 
ratios,  which  is  adaptable  to  computer  use.  One  such'  approach ,  for  pre¬ 
dicting  equilibrium  and  enthalpy  data  from  fundamental  properties,  was 

(9) 

proposed  by  Ghao  and  Seader  .  This  versatile  method  can  be  used  to 
calculate  the  thermodynamic  and  equilibrium  properties  for  a  wide  range 
of  hydrocarbon  mixtures  including  some  with  non-hydrocarbon  gaseous  com¬ 
ponents  . 

The  earliest  evaluation  of  this  correlation  was  performed  by 

Cavett^  J  who  employed  it  in  the  computation  of  bubble,  dew  and  flash 

points  for  hydrocarbon  mixtures.  Although  this  method  of  K-ratio  pre^ 

diction  was  found  to  be  time  consuming,  Cavett  suggested  the  possible 

use  of  the  Chao-Seader  data  in  rigorous  distillation  column  calculations. 

Erbar^^  has  recently  developed  the  N.G.P.A.  flash  computer  program  ■? 

f  58^ 

using  this  correlation.  Also  simultaneously,  Shelton  and  Wood1  have 
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independently  developed  and  published  a  similar  program*  The  latter 
authors  stress  the  wide  range  of  temperature  and  pressure  over  which 
the  Chao-Seader  correlation  can  be  applied. 

Waterman  and  Frazier have  recently  incorporated  this 
correlation  into  a  rigorous  distillation  column  design  computer  pro¬ 
gram  based  on  the  Lewis-Matheson  approach.  An  alternative  approach  to 
design,  which  was  considered  in  this  thesis,  is  the  trial  and  error 
method  employing  the  Thiele-Geddes  calculational  procedure,  as  developed 
by  Holland o 

With  the  present  rapid  increase  in  computer  calculation 
speeds,  further  investigation  appears  justified  into  the  applicability 
of  a  general  correlation,  such  as  the  Chao-Seader,  to  rigorous  distilla¬ 
tion  column  calculations.  It  was,  therefore,  undertaken  to  develop 
(a)  Thiele-Geddes,  and  (b)  modified  Bergamini’s  method  rigorous  distil¬ 
lation  column  computer  programs,  in  which  the  Chao-Seader  correlation 
was  incorporated.  Two  distinct  procedures  were  chosen  to  compare  the 
differences  of  the  two  main  calculational  approaches  of  grouping  the 
equations  by  column  or  by  stage.  The  aim  of  these  programs  was  to  de¬ 
termine  the  feasibility  of  incorporating  a  general  correlation  into  a 
rigorous  distillation  column  computer  program.  Also,  the  programs  were 
written  to  demonstrate  how  the  composition  dependent  K-ratios  can  be 
calculated  in  combination  with  a  rigorous  distillation  column  calcula¬ 
tional  procedure.  Several  stabilizer  design  problems  were  then  cal¬ 
culated  to  demonstrate  the  use  of  these  programs  in  design. 


. 
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(2)  Literature  Survey 


(2.1)  R igorous  Steady  Stage  Mul ti component  Column  Cal c ulation s 

The  digital  computer  has  been  the  necessary  tool  for  solving 
the  rigorous  multicomponent  distillation  problem.  With  the  develop¬ 
ment  of  modern  high  speed  digital  computers,  the  rigorous  solution  to 
the  distillation  column  model  is  now  more  feasible,  providing  the  data 
is  of  sufficient  accuracy.  The  most  common  computational  techniques 
involve  variations  of  methods  proposed  by:  Lewis  and  Matheson, 

Thiele  and  Geddes,  (^3,59)  Amundson > ^)  anc[  posej  Sweeny  and 


(31,59) 


Schrodt.^^  Although  some  researchers,  for  example  Murdoch  and 
(64  59) 

Underwood,  J  have  taken  the  semianalytical  approach  to  solve  the 
mathematical  expressions,  by  far  the  vast  majority  of  work  has  been 
put  into  the  development  of  iterative  methods,  such  as  those  of  Thiele 
and  Geddes,  Lewis  and  Matheson,  Bergamini  and  others.  These  methods 
select  progressively  better  initial  values  of  the  independent  variables 
for  each  successive  trial  based  on  the  previous  calculation. 


There  are  two  general  approaches  to  the  solution  of  the  equa¬ 
tions  representing  the  distillation  column  model.  These  approaches 
are:  the  solution  of  the  equations  stage  by  stage  for  every  restriction, 

/•  ooa  r  r  v 

as  proposed  by  Greenstadt,  et.  al.  J  and  Bergamini,  J  and  the  solu¬ 
tion  of  the  equations  one  restriction  at  a  time  for  the  whole  column, 
such  as  the  Thiele  and  Geddes  and  the  Lewis  and  Matheson  procedures. 
Bergamini  solves  these  equations  by  a  simultaneous  mass  balance,  energy 
balance  and  temperature  correction,  stage  by  stage  for  the  whole  column. 


’ 
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On  the  other  hand,  the  latter  approach  as  taken  by  Thiele  and  Geddes 
calculates  the  mass  balances  for  the  whole  column  followed  by  tempera¬ 
ture  profile  correction  and  energy  balances.  The  order  of  calcula¬ 
tion  of  (i)  mass  balances,  (ii)  temperature  corrections  and  (iii) 
energy  balances,  for  the  solution  of  the  column  equations  is  common 
to  most  methods. 

f31  591 

In  the  Lewis-Matheson  proposal  ’  the  feed,  reflux  and 
the  separation  on  two  components  are  specified.  The  distribution  of 
each  component  between  the  top  and  bottom  is  chosen  as  the  independent 
variable.  This  procedure  calculates  the  number  of  theoretical  stages 
required  for  a  desired  separation  and  is  used  mainly  in  the  design  of 
new  columns.  Examples  of  computer  programs  of  this  type  are  those  of 
Waterman  and  Frazier  and  Mclntire  . 


A  common  choice  of  specifications  for  theT  Thiele-Geddes  cal- 
culational  procedure  is;  feed  composition,  reflux  ratio,  distillate 
rate,  feed  stage  location  and  the  number  of  theoretical  stages.  The 
choice  of  the  number  of  theoretical  stages  and  the  feed  stage  location 
as  specified  variables  makes  this  method  useful  for  the  mathematical 
simulation  of  operating  columns.  Holland,  et.  al.  J  have  made  an 
extensive  study  of  this  calculational  procedure  as  applied  to  both 
simple  and  complex  columns.  The  published  computer  programs  of 
Hanson^^  are  also  based  on  an  approach  similar  to  the  Thiele-Geddes . 


The  computer  programs 


developed  by  Amundson 


(1,2) 


are  based 


on  the  solution  of  the  similtaneous  equations,  which  express  the  stage 
and  column  material  and  enthalpy  balances,  by  matrix  inversion.  The 
variables  set  are  those  specified  in  the  Thiele-Geddes  method. 


' 


; 
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rs3) 

Rose,  Sweeny  and  Schrodt"'  proposed  a  relaxation  method  in 
which  they  utilize  the  unsteady  state  equations  to  arrive  at  the  steady 
state  solution.  When  compared  to  the  other  existing  methods  this  pro¬ 
cedure  is  slow  as  far  as  computer  time  is  concerned.  However,  it  has 
the  particular  advantage  where  complex  columns  are  calculated  in  that 
it  is  not  subject  to  wide  fluctuations  between  iterations.  In  the 
case  where  fluctuations  in  the  conventional  methods  lead  to  instabili¬ 
ties  in  the  solution,  forcing  constraints  are  necessary  to  ensure  the 
convergence  to  the  steady  state  solution. 

(21  j 

Friday  and  Smith  give  an  excellent  discussion  on  the  for¬ 
mulation  and  solution  of  the  equilibrium  stage  model  for  separation 
problems.  They  perform  a  stability  analysis  to  point  out  the  condi¬ 
tions  under  which  the  conventional  methods,  which  use  the  "bubble 
point"  temperatue  correction  method,  fail  to  converge.  The  "bubble 
point"  method  is  the  term  used  for  the  calculation  of  the  corrected 
temperature  profile  from  the  constraint  Zy^  ^  =  1,  as  used  in  the 
Thiele-Geddes  and  Lewis-Matheson  proposals.  The  effects  of  damping 
for  convergence  forcing,  as  applied  by  Holland,  are  also  discussed. 

As  a  result  of  their  analysis,  Friday  and  Smith  proposed  a  procedure 
for  obtaining  the  corrected  temperatures  from  the  enthalpy  balances. 
This  approach  is  called  the  "sum  rates"  method. 

Most  of  the  existing  programs  are  rigorous  with  respect  to 
the  computation  of  material  and  energy  balances,  but  fail  to  take  into 
account  the  composition  dependency  of  the  K-ratio„ 


- 

1 


. 


’ 


■  . 
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Benedict  Webb  and  Rubin^  made  one  of  the  first  proposals  to 
compute  composition  dependent  K-ratios  and  enthalpy  values  in  a  distil¬ 
lation  column  computer  program.  For  this  purpose  they  used  the 

generalized  B.-W.R.  J  equation  of  state.  Cavett1  J  adapted  the  Chao- 

149) 

Seader  correlation  together  with  the  Redlich  and  Kwong  ,  or  the 
17) 

Black  equation  of  state  as  a  method  for  calculating  equilibrium 
data  for  hydrocarbon  mixtures.  Lately,  Edmister,  Persyn  and  Erbar^^ 
and  Erbar^^  have  modified  the  Chao-Seader  correlation  to  predict 
enthalpy  data  as  well.  Waterman  and  Frazier have  recently  re¬ 
ported  a  successful  incorporation  of  the  Chao-Seader  correlation,  to¬ 
gether  with  the  Edmister,  Persyn  and  Erbar  modification  for  the  enthalpy 
prediction,  in  the  Lewis-Matheson  calculational  procedure. 
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(2.2)  Shortcut  and  Rigorous  Approaches  to  Distillation  Column  Design 

Because  the  mathematical  expressions  representing  the  multi- 
component  distillation  problem  are  nonlinear  and  can  be  complicated,  a 
large  number  of  approximate  and  shortcut  design  methods  have  been  pro¬ 
posed.  Manual  calculating  methods  are  best  reviewed  by  textbook 
authors  such  as  Smith  and  Robinson  and  Gilliland^0^  .  An  exten¬ 
sive  review  of  hand  calculating  methods  was  also  published  by  Edmister 
in  a  series  of  papers  in  th e  Petroleum  Refiner  from  1947  to  1949. 

Maddox^  J  has  also  published  a  recent  basic  and  critical  review  of 
various  shortcut  design  calculating  methods. 

The  shortcut  approach  involves  the  calculation  of  the  minimum 
number  of  theoretical  stages,  at  total  reflux,  by  either  the  Fenske  or 
the  Winn  method.  The  minimum  reflux  is  then  calculated  by  one  of  the 
following  methods  developed  by  Underwood,  Bailey  and  Coates,  Erbar  and 
Maddox  or  Edmister.  From  the  minimum  reflux,  the  operating  reflux  and 
the  minimum  number  of  theoretical  stages,  the  required  number  of  theo¬ 
retical  stages  can  be  obtained  by  using  either  the  Gilliland  or  the 

(17) 

Erbar  and  Maddox  correlating  charts.  For  example,  Erbar  and  Maddox 
have  proposed  the  Winn-Erbar  and  Maddox  (minimum  ref lux) -Erbar  and 
Maddox,  or  the  Winn-Underwood-Erbar  and  Maddox  shortcut  combinations  for 
which  they  have  prepared  special  correlating  charts  for  design  purposes. 


In  the  past,  rigorous  calculational  design  methods  that  used 

successive  approximations  in  the  design  of  distillation  columns  were 

(59  31) 

generally  based  on  the  calculational  procedure  of  Lewis-Matheson  * 


These  methods  are  essentially  used  for  the  design  of  new  distillation 


, 
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columns  where  the  designer  has  set  separation  ratios  of  key  component 
as  the  design  criteria, 

Hanson^^  and  Holland^^  have  proposed  the  indirect  use  of 
the  Thiele-Geddes  calculational  procedure  for  the  design  of  distilla¬ 
tion  columns.  Columns  with  various  stage  configurations  were  calcu-r 
lated  until  a  solution,  which  satisfied  the  design  criteria,  was 
obtained.  In  this  fashion  a  large  variety  of  specified  variable  com¬ 
binations  can  be  handled.  Often  there  are  several  combinations  of 
variables  that  will  satisfy  the  set  specifications.  These  can  be  in¬ 
vestigated  and  the  most  advantageous  combination  of  the  independent 
variables  can  then  be  chosen. 

Srygle  and  Holland^^  have  proposed  the  use  of  the  multi- 
variable  sequiential  search  technique^6'*  with  the  Thiele-Geddes  cal¬ 
culational  procedure  to  calculate  an  optimum  number  of  ideal  stripping 
and  rectifying  stages  for  a  set  of  specifications.  This  approach  may 
be  quite  useful  for  simple  columns  or  for  a  rapid  semiemperical  approach 
where  the  computer  time  per  calculation  is  not  large.  However,  for 
more  complicated  columns,  a  larger  return  of  information  for  the  computer 
time  used  can  usually  be  obtained  from  the  trial  and  error  approach. 


» 
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(2.3)  K-ratio  and  Enthalpy  Data 


The  accepted  method  of  representing  vapour- liquid  equilibrium 

data  for  hydrocarbons  has  been  in  terms  of  K- ratios.  The  equilibrium 

K-ratio  for  component  "i"  is  defined  as  the  ratio  of  its  concentration 

in  the  vapour  phase  "y."  to  its  concentration  in  the  liquid  phase 

"x." 

1 


K.  =  y./x. 

i  l  i 


(2.3-1) 


The  simplest  composition  independent  K-ratio  relationship 
follows  from  the  assumption  of  Raoult's  law  for  the  liquid  phase  and 
Dalton's  law  for  the  vapour  phase.  On  the  assumption  of  ideal  solution 
in  both  the  vapour  and  liquid  phases,  composition  independent  K-ratios 


such  as  those  proposed  by  Lewis  and  Kay 


(30) 


and  Sauders ,  Selheimer  and 


Brown 


(55) 


can  be  calculated  for  a  multicomponent  system.  Of  the  many 


such  charts  and  K-ratio  correlations  proposed,  some  of  the  most  commonly 

r  r  s  (  77^ 

mentioned  are  those  of  Scheibel  and  Jenney^  ,  Maxwell^  )  and 
Deprister^^.  They  account  for  the  temperature  and  pressure  depend¬ 
ency  of  the  K-ratios  but  neglect  the  composition  effect. 


Benedict,  Webb  and  Rubin ^  were  one  of  the  first  to  develop 

(4) 

composition  dependent  K-ratios  using  the  B.W.R.  equation  of  state  . 

They  also  devised  a  graphical  method  which  is  commonly  referred  to  as 

the  "Kellog  Charts".  These  K-ratios  were  later  correlated  in  terms  of 

(14) 

reduced  properties  by  Edmister  and  Ruby 


The  use  of  a  third  parameter,  called  convergence  pressure,  to 
correlate  the  effect  of  composition  on  the  K-ratios  in  multicomponent 
mixtures  has  attained  wide  popularity.  Simple  nomographical  techniques 


•  A 


’ 


' 
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for  predicting  K-ratios  based  on  this  principle  were  developed  by 

Hadden^"^  and  Winn^^s  The  N.G.S.M.A.  K-ratio  charts,  which  are  the 

most  common  source  of  equilibrium  data  at  present,  are  also  based  on  the 

convergence  pressure  principle .  Equilibrium  data  from  these  charts  has 

been  curvefitted  to  polynomials  in  temperature  and  pressure  at  various 

f421 

values  of  the  convergence  pressure  for  computer  applications 

There  has  been  a  recent  stress  in  literature  on  the  development 

(9) 

of  general  correlations,  like  those  of  Chao-Seader  and  Orye  and 
C44) 

Prausnitz  which  predict  composition  dependent  equilibrium  data  over  a 
wide  range  of  temperature  and  pressure.  These  correlations  usually  use 
an  equation  of  state  for  the  gas  phase,  curvefit  for  the  liquid  fugacity 
coefficients  in  terms  of  reduced  properties,  and  calculate  the  liquid 
activity  coefficients  from  a  simplified  Gibbs  excess  free  energy  expres¬ 
sion.  The  Chao-Seader  correlation,  employing  the  solubility  parameter 
and  the  theory  of  regular  solutions,  is  one  such  approach.  It  is  applied 
to  mixtures  where  the  deviation  from  ideal  solution  in  the  liquid  phase 
arise  mainly  from  the  enthalpy  of  mixing;  the  excess  entropy  of  mixing 

('9') 

is  taken  as  zero.  On  the  basis  of  this  assumption  the  Chao-Seader 
correlation,  together  with  the  Redlich  and  Kwong  equation  of  stage  was  de¬ 
veloped  as  a  computer  method  for  predicting  K-ratios  in  hydrocarbon  mix¬ 
tures.  Cavett^,  Shelton  and  Wood^^  and  Erbar^^  have  all  reported 
favourable  results  with  the  Chao-Seader  correlation,  when  used  in  compu¬ 
ter  programs  in  the  calculation  of  flash,  dew  and  bubble  point  composi¬ 
tions  . 

To  solve  the  multi-stage  multicomponent  separation  model  a 
source  of  enthalpy  data  is  also  necessary. 
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The  enthalpy  of  a  single  pure  component  is  a  function  of  both 
the  temperature  and  pressure.  For  many  common  hydrocarbons  the  en¬ 
thalpy  data  is  described  by  enthalpy  charts  in  references  such  as 

C37'\  ('12') 

Maxwell  and  Edmister  .  With  the  assumption  of  ideal  solutions, 
the  enthalpy  of  a  mixture  can  be  calculated  from  the  pure  component 
enthalpies.  However,  complications  arise  in  that  extrapolation  is 
necessary  where:  (a)  a  component  exists  in  a  liquid  phase  whose  criti¬ 
cal  temperature  is  below  the  temperature  of  the  mixture;  or  (b)  in 
the  vapour  phase  where  the  vapour  pressure  of  a  component  is  less  than 
the  system  pressure. 

Mixture  enthalpies  can  be  obtained  on  the  basis  of  an  equiva¬ 
lent  component  having  some  weighted  average  molecular  weight  from  plots 

of  enthalpy  as  a  function  of  temperature,  pressure  and  molecular  weight 

(12) 

as  described  by  Edmister v 

r  33") 

Lyderson,  et.  al.  prepared  charts  where  the  enthalpy  rela¬ 
tive  to  the  ideal  gas  state  is  plotted  as  a  function  of  the  reduced 
properties  and  the  critical  compressibility  factor.  These  charts  were 
improved  and  the  correlation  converted  to  mathematical  expressions  by 
Yen  and  Alexander  . 

Partial  molar  enthalpies  relative  to  the  ideal  gas  enthalpies 
that  include  the  effect  of  temperature,  pressure  and  composition  have 
been  calculated,  for  example,  by  Edmister,  et.  al.^^,  from  thermo¬ 
dynamic  relationships  for  the  liquid  phase.  The  vapour  phase  is 
handled  by  an  equation  of  state,  for  example  the  Redlich  and  Kwong  equa¬ 
tion. 


’ 
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(3)  Theory 


(3.1)  Description  of  the  Distillation  Column  Mathematical  Model 


The  model  chosen  was  a  single  feed  two  product  distillation 
column  as  described  in  figure  I.  The  equations  representing  the  model 
for  any  stage  "nM  in  the  rectifying  section  or  "m"  in  the  stripping 
section  may  be  expressed  as  follows: 

The  equilibrium  relationship:, 
y.  =  K.  x. 

'  l  ,n  l ,n  l  ,n  (3.1-1) 


The  component  material  balance  around  stage  "n"  (overall 
balance  implied) : 


1.  +  v. 

i,n  i,n 


-1.  -v. 

i  ,  n- 1  i ,  n  + 


1 


-f. 


i,n 


=  0 


(3.1-2) 


The  energy  balance  around  stage  "n": 


Lh  +  VH  -  L  ,h  .  -  V  .H  .  -Fh*  -  q  =  0 
nn  nn  n-ln-1  n+ln+1  f  Mn 


(3.1-3) 


The  restriction  on  fractional  concentration: 


£  x.  =1.0  or  I  y.  1.0 
i=i  1'n  i=i  i-n 


(3.1-4) 


In  addition,  a  sufficient  number  of  specifications  must  be  made 

to  define  a  unique  solution  to  the  problem.  A  systematic  approach  to 

the  number  of  variables  to  be  specified  is  described  in  detail  by 
(59)  (24) 

Smith  .  Hanson  defines  a  simple  "description  rule"  for  any 
problem  as  follows:  "To  completely  describe  the  separation  operation, 
the  number  of  independent  variables  which  must  be  set  must  equal  the 
number  that  can  be  set  by  construction  or  controlled  by  external  means." 


■ 

, 
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An  example  list  of  variables,  given  by  Hanson,  that  must  be  specified  to 
completely  describe  a  problem  is  given  in  table  I. 


Table  (I) 


Independent  variable  number 

Feed  Composition  (N- components)  N-l 

Feed  amount  1 

Feed  enthalpy  1 

Column  pressure  1 

Condenser  duty  1 

Reflux  ratio  1 

Number  of  theoretical  enriching  stages  1 

Number  of  theoretical  stripping  stages  1 

Reboiler  duty  1 

N+7 


The  set  of  specifications  as  listed  above  would  rarely  be  used. 
The  above  list  of  independent  variables  can  be  replaced,  in  describing 
the  problem,  by  an  equal  number  of  any  other  independent  variables 
which  are  most  pertinent  to  the  problem  of  interest.  In  the  case  of 
the  model  programmed  the  independent  variables  are  chosen  as  described 
in  table  II. 


Table  (II) 


Independent  variable  number 

Feed  composition  (N- components)  N-l 

Feed  amount  (1  lb.  mole  basis)  1 

Feed  condition  (e.g„  bubble  point)  1 

Column  pressure  1 

Distillate  rate  1 

Distillate  condition  1 

Reflux  ratio  1 

Total  number  of  theoretical  stages  1 

Feed  stage  location  1 


N+7 


1 


' 

li 


' 


F/  o  or  e  I 
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MODEL 
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Having  chosen  the  model  and  the  specified  independent  variables 
that  describe  the  problem,  one  is  faced  with  the  decision  of  choosing  a 
procedure  of  solving  equations  3.1-1  to  3.1-4.  For  a  distillation 
separation  problem  the  general  procedure  is  as  follows: 


Equation  3.1-1  can  be  used  to  eliminate  cither  the  vapour  or 
the  liquid  concentrations  in  equations.  3.1-2,  3.1-3  and  3.1-4.  The 
overall  material  balance  can  eliminate  one  flow  rate,  either  L  or  V  . 
Assuming  that  it  is  required  to  eliminate  yo  ^  and  the  remaining 
equations  3.1-2,  3.1-3  and  3.1-4  respectively  can  be  expressed  in  the 
following  functional  form. 


C.  -(x.  ,  V  ,  T  )  =  0 

i,nv  i ,n  n’  n: 

E  (x.  ,  V  ,  T  )  =  o 

n  v  i,n*  n’  n' 


M  (x.  ,  V  ,  T  ) 

n  v  i,n  n*  n 


=  0 


(3.1-5) 
(3. 1-6) 
(3.1-7) 


Equation  3.1-5  is  always  used  to  provide  numerical  values  of 

x.  or  1.  and  these  are  then  substituted  into  equations  3.1-6  and 
i,n  i,n  1 

3.1-7.  Also,  equation  3.1-5  is  always  solved  as  though  it  were  linear 

in  x.  and  had  constant  coefficients.  Ecuations  3.1-4  and  3.1-3  are 
l  ,n 

used  to  generate  and  T^.  The  use  of  equation  3.1-4  to  obtain  T^ 

and  3.1-3  to  calculate  is  called  the  "bubble  point"  method.  This 

is  the  combination  employed  in  the  Thiele-Geddes  procedure.  Alternately 

the  reverse  choice  is  possible  and  it  is  called  the  "sum  rates"  method, 

(21) 

Friday  and  Smith  have  investigated  the  regions  of  stability  of 
these  two  methods  and  present  in  detail  the  advantages  of  each. 

The  order  of  the  equations  for  a  distillation  problem  is 


generally  3.1-1,  3.1-2,  3.1-4  and  3.1-3. 


All  those  permutations  in 


1 


' 
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which  equations  3.1-4  or  3.1-3  precede  3.1-1  and  3.1-2  would  require  the 
initial  assumption  of  all  stage  compositions.  Also  equation  3.1-4 
should  precede  3.1-3  so  that  the  stream  enthalpies  can  be  computed  on 
the  normalized  compositions. 

There  are  two  general  approaches  to  the  solution  of  these 
equations.  One  is  to  solve  the  equations  an  individual  stage  at  a 
time  for  each  restriction.  The  other  is  to  solve  for  a  restriction  at 
a  time  for  the  whole  column.  Both  are  used  in  the  solution  of  the 

model  described  in  figure  I.  Bergamini's  approach  is  an  example  of 

the  former  method  of  "grouping  by  stages".  It  requires  the  additional 
assumption  of  the  end  compositions.  The  Thiele-Geddes  procedure  is  an 
example  of  the  latter  approach  of  "grouping  by  type".  An  iterative 
method  of  solution  is  most  common  where  successively  better  values  of 
the  independent  variables  are  selected  for  the  next  trial  until  the 
column  converges  on  the  specified  criteria. 

The  degree  of  complication  in  the  solution  of  the  model  equa¬ 
tions  is  to  a  large  extent  dependent  on  the  functional  form  in  which 
the  K-ratios  are  described.  K.  =  f  (T  ,P  ,x.  ).  K-ratio  data  used 

in  equation  3.1-1  are  generally  available  for  computer  use  as  curve- 
fitted  functions  of  temperature  at  a  given  pressure.  Usually  the  com¬ 
position  dependency  is  ignored  or  taken  into  account  indirectly  by  such 
correlating  variables  as  the  convergence  pressure.  The  Chao-Seader 
correlation  calculates  composition  dependent  K-ratios.  To  calculate 
these  directly  would  require  the  knowledge  of  the  steady  state  stage 
compositions.  The  K-ratios,  therefore,  have  to  be  calculated  on  the 
basis  of  the  approximate  stage  concentrations  calculated  from  each 


, 


; 


- 
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trial  o  As  the  column  converges  to  the  steady  state  solution,  the  stage 
compositions  and  temperatures  and  hence  the  K-ratios  converge  to  their 
steady  state  values . 


' 
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(3.2)  Thiele-Geddes  Rigorous  Calculation  Procedure 

The  multicomponent  distillation  column  calculational  method 

as  proposed  by  Thiele  and  Geddes ,  and  as  applied  by  Lyster,  Sullivan, 

(35) 

Billingsley  and  Holland  ,  has  been  one  of  the  popular  approaches  to 
rigorous  column  calculations.  Essentially,  the  method  groups  equations 
3.1-1,  3.1-2,  3.1-4,  and  3.1-3  by  "type"  and  solves  for  the  independ¬ 
ent  variables  x.  ,T  and  V  satisfying  one  restriction  at  a  time  for 

i,n’  n  n  76 

the  whole  column  by  an  iterative  procedure. 


(a)  Stage  to  Stage  material  balances: 

The  material  balances  equations  3.1-2  are  solved  for  the  com¬ 
positions  x.  as  follows” 
r  i .  n 

In  the  rectifying  section  of  the  column  the  equilibrium  rela¬ 
tionship  can  be  expressed  in  terms  of  the  top  product  component  molar 

flow  rate  "d."  and  the  adsorption  factor  "A.  ". 

i  r  i  ,n 

L 


Lx.  =  ** 

n  i,n 


V  v. 


K.  V 

l  ,n  n 


n'  i  ,n 


1.  =  A.  v. 

l  ,n  i ,n  i  ,n 


1 .  v. 
l ,n  _  l  ,n 

d.  d. 


A. 


i,n 


(3.2-1) 


l  i 


Component  "i"  material  balances  around  the  top  of  the  column, 
numbering  from  top  to  bottom,  can  then  be  written  as: 


v.  1.  . 

_  i >n- 1  +  1 

d.  d. 

i  l 


(3. 2-2) 


, 
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Substituting  equations  3.2-1  in  3.2-2  to  obtain  the  relation¬ 


ship: 


=  A.  (  +  1) 

d.  1,n  d. 


(3.2.3) 


*j? 


The  calculations  are  started  by  calculating  ^  from 

i 


the  reflux  ratio  "R": 
For  a  total  consenser 


1. 

-i-i£  =  r 
d. 

l 


(3.2-4) 


For  a  partial  condenser 


1.  R 

=  K. 


1,0 


(3.2-5) 


Equation  3.2-3  is  then  applied  to  each  stage  in  succession 
1i,f-l 


until  the  ratio  ^  from  the  stage  above  the  feed  stage  is  obtained. 

l 

The  material  balance  calculations  are  then  switched  to  the  stripping 
section. 

Similarly  to  the  rectifying  section,  the  stripping  section 
equilibrium  relationship  for  component  "i"  can  be  expressed  in  terms  of 
the  stripping  factor  VS^  and  the  bottoms  component  molar  flow  rate  "b^" 


V 


K.  V 
i  ,m  m 

n/i,m  ”  - —  L  x. 

T  m  i,m 


m 


v.  =  S.  1.  (3.2-6) 

i,m  i,m  i,m 

Component  "i"  material  balances  around  the  bottom  of  the  column 


can  be  written  as: 
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v. 


l  ,m 


1 


i  ,m 


i  ,m 


(3.2-7) 


Also  similarly  to  the  rectifying  section  we  obtain: 


1.  ,  1. 
i ,  m- 1  i , m 


S.  +  1 

l  ,m 


(3.2-8) 


Equation  4„2-8  is  then  applied  to  each  of  the  stripping 
stages,  starting  at  the  bottom  of  the  column,  until  the  ratio 


i  ,f-l 


is  obtained  in  the  liquid  entering  the  feed  stage  "f". 


The  normalized  liquid  compositions  are  then  calculated 

1.  1. 

from  the  — —  and  ratios  and  b.  and  d.  which  are  ob- 


co 


co 


l  l 

tained  from  the  mismatch  at  the  feed  plate  and  from  the  theta  conver¬ 
gence  method  as  described  in  section  3.4. 


x. 


(1.  /d.)  d. 

i,n  l  l 


i,n 


co 


I  (1.  /d.)  d. 

.  ' ‘  i,n  i  i 

1-1  co 


(3.2-9) 


(1.  /b.)  b. 

v  i , m  iJ  i 


x. 


CO 


i  ,m 


c 

l  (1.  „  )  b. 

.  .  ^  i,m/b.  i 

1=1  1  co 


(3.2-10) 
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(b)  Temperature  Profile  Correction: 

In  the  Thiele-Geddes  approach  the  temperature  corrections  are 
made  by  the  "bubble  point"  method.  This  involves  the  solution  for  the 
stage  temperature  that  satisfies  the  restriction  equation  3.1-4,  using 
the  normalized  liquid  stage  compositions.  The  restriction  to  be 
satisfied  may  be  written  as: 

Z  x.  K.  -1=0  (3.2-11) 

i=1  i ,n 

The  method  used  to  solve  equation  3.2-11  is  dependent  on  the 

functional  form  in  which  K.  is  dependent  on  T  ,  P  and  x.  .  For 

i  ,  n  nil  j 11 

differentiable  functions  of  K.  ,  which  respect  to  temperature,  Newtons 

l ,  n 

method^29,26"* 1  may  be  used.  However,  for  more  complicated  relationships 

such  as  the  Chao-Seader  approach  a  trial  and  error  method  as  described 

by  equation  3.2-12  may  be  more  applicable. 

c 

1-E  y. 

(Tn)  =  (Tn)  {  1  +  i-1  1,n  )  (3.2-12) 

co  ca  g 

(c)  Vapour-Liquid  Profile  Correction: 

New  vapour  and  liquid  profiles  are  calculated  from  the  enthalpy 
balance  relationship  as  described  by  equation  3.1-3.  The  two  methods 
of  column  enthalpy  balances  which  were  investigated  for  possible  use  with 
the  Thiele-Geddes  approach  are  derived  as  follows: 

(i)  Bottom  up  Enthalpy  Balances 

The  individual  "V's",  vapour  flow  rates,  can  be  expressed 
by  a  series  of  enthalpy  balances  around  the  individual 
stages  starting  at  the  bottom  of  the  column  as  follows: 


- 
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Balances  around  the  bottom  stage  "k" 


tWP  vk  -  B  <hk-rV  +  Qr 


(3.2-13) 


Vk  “ 


B(hk-i  -hk)  4-  Qr 
Hk  '  hk-l 


(3.2-14) 


Then  calculating  up  the  column  in  the  stripping  section: 
L 


m-1 


m 


V  +  B 
m 

V  ,  +  B 
m+1 


L  .  h  ,  +  V  .  H  =  L  h  +  V  H 
m-1  m-1  m+1  m+1  mm  mm 


substituting  for  L  ,  and  L 
6  m-1  m 


V  .  (H  ,  -h  )  +  B  (h  .  -h  ) 
m+1  m+1  m  m-1  m 

V 


m 


H  -h  . 
m  m-1 


(3.2-15) 


(3.2-16) 


At  the  feed  stage  the  energy  balance  is: 

Fh*  +  L-  .  h-  .  +  V~  -  H~  -  -  V_  H_  +  L»  h~ 
f  f-1  f-1  f+1  f+1  f  f  f  f 


(3.2-17) 


V, 


Substituting  i  ~  ^f  and  +B 

V-  .  (H_  T  -  hx)  +  Fh*  -Dh^  .  -Bh~ 
f+1  ^  f+1  f  f-1  f 


Hf  -h^. 


(3.2-18) 


where  "f"  is  the  feed  stage  as  shown  below 

f-1 


' 
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In  the  rectifying  section  the  energy  and  mass  balances  are: 

L  1  h  .  +  V  ,  H  =  V  H  +  L  h  (3.2-19) 

n-1  n-1  n+1  n+1  n  n  n  n  K  J 

L  =  V  1  -D 

n  n+1 

L  .  =  V  -D 

n-1  n 


V 


substituting  for  and 

V  .  (H  .  -h  )  -D  (h  .  -h  ) 
n+1  n+1  n  v  n— 1  n 


n 


(3.2-20) 


H  -h  , 
n  n-1 


V  H 
n  n 


(ii)  Enthalpy  Balances  from  Both  Ends  of  the  Column 

In  the  rectifying  section  the  energy  balance  around  any 

tray  "n"  is: 

L  ,  h  ,  +  Dh  +0 
n-1  n-1  D 


(3.2-21) 


V 


substituting  for  Lr  ^  -D 

D  (hp  -  hri_  1 )  + 


n-1 


n 


H  -h  . 
n  n-1 


(3.2=22) 


The  balances  in  the  stripping  section  made  around  the 
bottom  of  the  column  are: 


L  ,h  +  Qd  =  V  H  +  BhD 
m-1  m-1  R  mm  B 


eliminating  L  ,  with  L  1  =  V  +  B 
&  m-1  m-1  m 


V 


B  (h  .  -h  )  +  Q 
v  m-1  B' 


R 


m 


H  -h  . 
m  m-1 


(3.2-23) 


(3.2-24) 
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(3*3)  Modified  Bergamini's  Calculational  Procedure 

The  calculational  procedure  as  applied  by  Bergamini ^  for 
ideal  stage  multicomponent  distillation  column  calculation  differs 
from  that  of  Thiele-Geddes  in  that  equations  3.1-3,  3*1-2,  3*1-4  and 
3*1-3  are  grouped  by  stage.  Thus  material  balances,  enthalpy  balances 
and  temperature  corrections  are  applied  simultaneously  in  calculating 
up  and  down  the  column* 


(a)  Material  and  Enthalpy  Balances 

In  the  rectifying  section,  the  material  balance  for  component 

"i"  is: 


v.  =  d.  +  1 .  1 

i,n  i  i,n-l 


(3*3-1) 


Overall  material  balance: 


L  ,  =  V  -D 
n-1  n 

The  energy  balance  for  the  same  stage  is: 


E  H.  v.  =  E  h,  1  1.  1  +  Q  +  E  d.  h*  n 
i=1  i,n  l ,n  i_1  i ,n- 1  i,n-l  X  i=1  l  i,D 


(3*3-2) 


Substituting  for  v*  and  1.  ,  =  L  ,  x*  - 

6  i,n  i,n-l  n-1  i,n-l 


n  +  E  (h*  d.)  -  E  (H.  d.) 


Jn-1 


i=l 


D 


i=l 


i  ,n  i' 


c  —  c  — 

E  (H.  x*  . )  -  E  (h*  .  x .  n ) 

*  , * *  v  i,n  i,n-l'  *  ,  i,n-l  i,n-l 
i=l  *  i=l 


(3*3-3) 


The  calculations  in  the  rectifying  section  are  started  by 
calculating  "1^  q"  from  the  reflux  ratio  "R": 


1.  =  RDx.  n 

i,o  i ,  D 


TO*  *3 


! 
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For  any  stage  "n"  equation  3.3-1  is  applied  to  obtain  the  set 

of  v.  The  normalized  compositions  are  then  calculated  from  the 

component  flow  rates  followed  by  ^  from  equation  3.3-3. 

v. 


i,n 


1  ?n 

c 


(3.3-4) 


£ 

i=l 


v. 

l  ,n 


x. 


i,n 


v.  /K. 

i,n  i,n 


(3  o  3-5) 


£  v.  /K. 

i=1  i,n  i  ,n 

Equations  3.3-1,  3.3-3,  3.3-4  and  3.3-5  are  then  applied  down 

the  column  until  1.  «  ,  is  obtained  in  the  overflow  from  the  stage  above 

i,f-l 

the  feed. 


In  the  stripping  section  the  relationships  for  stage  "m"  are; 

th 

Material  balance  on  the  "i  "  component: 

1.  =  v.  +  b.  (3.3-6) 

l ,m  i,m  i 

'Tk"  is  the  net  molar  flow  rate  of  component  "i"  out  of  the  bottom  of 
the  column. 


Overall  material  balance: 


V  , 
m+1 

Energy  Balance: 


fh.  1.  )  +  Qd  =  Z  (H.  .  v.  J  +  Z  r.  ,  .  ,,  „ 

=  1  ^  i,m  i,nr  i=1  i  ,m+l  i,m+l  i=1  (bi  hi  g)  (3.3-7) 


substituting  for  1.  and  v.  =  V  y.  , 

6  i,m  i,m+l  m+1  'i,m+l 


, 
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V 

m+ 


1 


£  Cb±  h  )  -  i  (h  b.)  -  oR 

1=1  1=1 


£  (y.  .  h.  )  -  £  (y.  .  H. 

,  wi,m+l  i,nr  .  .  wi,m+l  i,m+l) 
i=l  ’  i=l  ’  ’  J 


(3.3-8) 


The  normalized  vapour  and  liquid  compositions  are  then  cal¬ 
culated  from  the  liquid  component  molar  flow  rates. 


y 


1.  K. 

i,m  i,m 


i  ,m 


c 

l  (1.  K.  ) 

,  l.m  l.m 
i  =  l 


(3.3-9) 


1. 

i  ,m 


l  ,m 


c 

£ 

i=l 


(3.3-10) 


Equations  3.3-6,  3.3-7,  3.3-8  and  3.3-9  are  then  applied 
starting  at  the  bottom  stage  of  the  column  to  the  feed  stage. 


(b)  Stage  Temperature  Correction 

A  parameter  "x",  the  ratio  of  the  dew  point  to  the  bubble 
point,  is  used  to  calculate  the  temperature  correction  instead  of  the 
"bubble  point"  calculation. 


For  the  rectifying  section: 


E  (v.  J K,  J 


^n  c 


i=l 


i,n  i,n 


£  (v.  ) 

i  n 

i  =  l 


For  the  stripping  section: 


= 


£  (1.  ) 

i=l  ljm 


m  c 


£  (1.  K.  ) 

.  ,  i,m  i,m 
i  =  l 


(3.3-11) 


(3.3-12) 


' 
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XR  =  1  for  the  true  temperature  at  the  stage.  The  deviation  of  "x" 

from  unity  is  then  an  estimate  of  the  difference  in  T  from  the  true 

ca 

stage  temperature. 


A  new  set  of  K-ratios,  (K.  )  is  then  obtained  by  multiply- 

1  « 

CO 


ing  the  calculated  K.  by  x  : 

i,n  ;  n 


(K.  )  =  K.  X 

i,n  l.n  An 

co 


(3.3-13) 


Corresponding  to  these  (K.  )  there  exists  a  temperature 

’  co 

vector  ^ .  To  calculate  this  temperature  vector  In  (K^  ^)  is  assumed 
to  vary  linearly  with  temperature.  A  slope  i/u  ^  is  then  calculated 


where 


In  (K.  )„  c  -  In  (K.  )„ 

^  l.n'T  +5  ^  l.n'T 

5  n  5  n 


i  ,n 


(3.3-14) 


From  the  linear  relationship  the  temperature  vector  T_^  ^  is: 

T.  =  T  +  i) j.  {  In  (K.  )  -  In  (K.  )  }  (3.3-15) 

i,n  n  l.n  l.n  l.n 

co 


The  corrected  temperature  is  then  a  weighted  mean  of  the  temperature 


vector  T 


i,n 


Rectifying  section: 


Z  (T.  v.  /K.  ) 

.  .  l.n  i,n  i,n' 

,  _  i  =  l _ _ _ _ _ _ 

n  c 

C0  Z  (v.  /K.  ) 

.  .  i,n  i,n' 

l-l 


(3.3-16) 


Stripping  section: 


Z  (T.  1.  K.  ) 


i=l 


i,m  i,m  i,m 


m  c 

C0  Z  (1.  K.  ) 
.  ,  v  l.m  i,m 

i  =  l 


(3.3-17) 


, 
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If,  after  two  corrections,  the  stage  temperature  has  not  con- 
verged  a  forcing  technique  described  by  Tedley^  J  and  also  by  Bergamini 
is  used,  where  T  ^  is  the  tentative  value  taken  for  the  stage  tempera¬ 
ture  . 


T  T  -  T  T 
n0  n-  n,  n_ 

2a  lco  la  2co 


n 


+  T 


2a 


n 


-  (T 


lco 


n 


+  T 


la 


n 


2co 


(3.3-18) 
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(3.4)  Mismatch  at  the  Feed  Stage  and  the  Theta  Method  of  Convergence 


The  mismatch  at  the  feed  stage  and  the  theta  method  of  conver¬ 
gence  are  applied  to  both  the  Bergamini  and  the  Thiele-Geddes  calcula- 

f  'If.') 

tional  procedures  as  developed  by  Holland^  .  The  general  expression 

for  the  calculated  ratio  of  bottom  product  component  molar  flow  rate  to 

the  top  product  component  molar  flow  rate,  (b./d.)  is: 

ca 


1.  ,  , 

r  1 


v 


l 


if  -i 


FX 


if 


if 


FX 


if  -I 


Where  "f"  is  the  feed  stage  as  shown  below: 


f-1 
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The  corrected  (b./d.)  values  are  defined  as  those  which  give 

1  rco 


D  specified  and  simultaneously  satisfy  both  the  component  and  material 


(26,35) 


balances,,  An  emperical  expression  was  developed  by  Holland,  et.  al. 

relating  the  (b./d. )  to  the  corrected  values,  Holland,  et,  al.  pro- 

ca 

posed  to  use  a  multiplier  ”0"  independent  of  any  particular  component 
and  defined  by: 

b.  b. 

(  /  )  -  e  (  /  )  (3.4-2) 

i  co  i  ca 


From  the  material  balance  of  component  "i" 

FX 


if 


(dp  +  (bp 

CO  CO 


(3.4-3) 


and  equation  3.4-2: 


FX 


(d.) 


if 


1  co  1+0  (b./d.) 


ca 


(3.4-4) 


For  the  specified  distillate  rate  to  be  satisfied: 


if 


c  FX 

D  =  E  {  — 

i=l  1+0  (bi/di) 


ca 


(3.4-5) 


Equation  3.4-5  can  be  solved  for  0  using  numerical  search 
techniques.  An  objective  function  g(0)  is  defined  as: 


g  (Q)  *  D 


FXif 


spec 


c 
E 

i*l  1+0  (b./d.) 

v  l  l 


(3.4-6) 


ca 
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The  solving  of  this  objective  function  for  the  root  0  is  commonly 
carried  out  by  Newton's  root  finding  method  5  _  This  involves 

evaluating  the  derivative  . 


g(0) 


c 

E 

i=l 


FX 


if 


{1+0  (b./d.)  )2 

l  iJ 

ca 


(3. 4-(7) 


Starting  from  an  assumed  0&  the  next  approximation  for  0^  is 


0  and  it  is  calculated  by: 
co  J 


0  =  0 

co 


S'Sa) 


a  g:0J 


(3.4-8) 


To  ensure  convergence  by  the  Newton's  method  the  first  assumed 
value  for  0  should  be  0  i  0  0  ,  where  0  is  the  root  satisfying 

3  3.  1C  1C 

equation  3.4-6.  Since  0&  =  0  represents  one  value  that  always  satis¬ 
fies  the  inequality  the  first  value  of  0  should  be  very  small  or  equal 
to  zero. 

As  the  solution  for  the  column  converges  the  root  0^ 
approaches  unity. 
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(3,5)  Fenske-Underwood-Erbar  and  Maddox  Short  Cut  Design  Method 

The  Fenske  -Underwood -Erbar  and  Maddox  short 

cut  design  combination  was  used  to  obtain  approximate  values  of  the 
independent  variables;  the  total  number  of  theoretical  stages,  the 
operating  reflux  ratio  and  the  distillate  rate.  These  specifications 
were  then  used  as  a  starting  point  for  the  Thiele-Geddes  or  the  modified 
Bergamini ' s  procedure  program  to  obtain  the  rigorously  calculated  design 
by  trial  and  error. 


(a)  Fenske 's  Method  for  Calculating  the  Minimum  Number  of  Stages 

(19) 

The  equation  developed  by  Fenske  relates  the  separation 
obtained  between  two  components  at  total  reflux,  to  the  minimum  number 
of  equilibrium  stages. 


For  a  total  condenser  the  Fenske  equation 

m  x- 

N  ,  1  . 

ai  x 

av  r 


(3.5-1) 


c 


For  a  partial  condenser: 


N+i  f  l  . 
=  a.  (  —  ) 

1  x 

av  r 


(3.5-2) 


where  a. 

l 


is  the  relative  volatility  and  is  defined  as: 


a . 
l 


(3.5-3) 


where  "r"  is  the  reference  component. 


r.'rj.lorm  ■ 
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The  average  relative  volatility  a.  in  terms  of  the  two  key 

av 


components  is: 


ai  {  (alk-hk}  (alk-hk}  ^lk-hk^  }3  (3.5-4) 

av  bottom  middle  top 


If  the  splits  on  two  components  are  specified  the  minimum 
number  of  theoretical  stages,  at  total  reflux,  and  the  product  distribu¬ 
tion  are  calculated  from  equations  3.5-1  or  3.5-2.  The  two  components 
"i^k"  and  "i^"  are  referred  to  as  the  light  and  heavy  key  components 
respectively. 


(b)  Minimum  Reflux  from  the  Underwood  Equations 

The  minimum  reflux  is  defined  as  that  reflux  rate  which,  if 
decreased,  an  infinitesmal  amount  would  require  an  infinite  number  of 
stages  to  produce  the  specified  separation  between  the  two  key  compon¬ 
ents.  In  a  multicomponent  column,  that  reflux  ratio  which  causes  a 
zone  of  constant  composition  to  appear  is  taken  as  the  minimum  reflux. 

If  a  zone  of  constant  composition  appears  in  one  section  only,  it  is 
assumed  to  be  possible  to  shift  the  feed  location  and  hence  the  loading 
so  that  the  reflux  ratio  is  further  decreased  until  the  zone  of  con¬ 
stant  composition  appears  in  both  sections.  Thus,  the  minimum  re¬ 
flux  concept  assumes  the  ideal  feed  stage  location. 

Underwood ^ ,  on  assuming  constant  molar  overflow  and  con¬ 
stant  relative  volatilities,  developed  the  following  expressions  for 


the  minimum  reflux. 


, 
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For  the  rectifying  section: 


c 

E 

i  =  l 


a. 

1 


@  Rm 


a .  -0 
l 


R  + 
m 


1 


(3.5-5) 


c  a.  (x.  n) 

Z  1  1>B  ®  Rm 

i=l 


For  the  stripping  section: 
V, 


B 


R 


m 


a .  -  0 
l 

VD  +  F  -  D 
B  vap . 

D 


B 


(3.5-6) 


(3.5-7) 


The  variable  theta  "0"  is  the  common  root  of  the  stripping 
section  equation  3.5-5  and  the  rectifying  section  equation  3.5-6  and 

By  combining  the  equation 
3.5-5  and  3.5-6  equation  3.5-8  is  obtained,  which  relates  "0"  to  the 
thermal  condition  and  the  composition  of  the  feed. 


satisfies  the  restriction  a,,  <.  0  <_  a,  , 

lk  hk 


c  a .  y.  ~ 

V  1  if  i 

E  -  =  1  -  q 

i=l  a.-0 

l 


(3.5-8) 


where  "q"  is  defined  as: 


q  = 


(Heat  necessary  to  raise  a  mole  of  feed  to 
the  saturated  vapour  condition) 

(Heat  necessary  to  raise  a  mole  of  saturated 
liquid  of  the  same  composition 
as  the  feed  to  the  saturated  vapour  condition) 


(3.5-9) 


Equation  3.5-8  is  solved  for  0.  The  0  so  obtained  together 
with  the  top  and  bottom  compositions  at  minimum  reflux  can  be  substituted 
into  equation  3.5-5  or  3.5-6  to  obtain  the  minimum  reflux.  For  prac¬ 
tical  purposes  the  top  and  bottom  compositions,  obtained  from  the  Fenske 
equation,  at  total  reflux  are  assumed  to  be  sufficiently  close  to  those 


. 


, 


' 
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at  minimum  reflux  and  are  used  in  equations  3.5-5  and  3.5-6.  The 
operating  reflux  "Ro"  is  then  obtained  by  multiplying  the  minimum 
reflux  by  some  factor  generally  between  1.2  and  1.5. 

For  example: 

R  =  1.3  R  (3.5-10) 

o  m 


(c)  Required  Number  of  Theoretical  Stages  from  the  Erbar  and  Maddox 

Charts 


The  minimum  reflux  "R^" ,  operating  reflux  MR  "  and  the  mini¬ 
mum  number  of  theoretical  stages  obtained  from  the  Fenske  equation  are 

(17) 

then  used  in  the  correlation  proposed  by  Erbar  and  Maddox^  to  obtain 
the  required  number  of  theoretical  stages.  Erbar  and  Maddox  have  de¬ 
veloped  plots  of  (L  /V.)  operating  vs  (N  /N)  at  various  (L  /V,)  .  . 

for  both  the  Winn-Erbar  and  Maddox  and  Winn-Underwood,  minimum  number 
of  stages  and  minimum  reflux  combinations.  These  charts  are  based  on 
the  bubble  point  feed  condition  only.  To  account  for  the  various  feed 
conditions  Erbar,  et.  al.  have  developed  a  correction  equation  which 
modifies  the  operating  reflux  rate  for  a  feed  in  the  region  between 
the  saturated  liquid  and  the  saturated  vapour. 


V 


lu 


(1-|)  (h*f  Fu  -  h*f  Fk) 


(3.5-11) 


where : 
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unknown  condition 
known  condition 

total  amount  of  liquid  leaving  the 
condenser 

total  feed  enthalpy 
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The  correction  is  made  on  the  operating  reflux  only  using 
equation  3*5- 11  and  the  number  of  stages  is  read  from  the  charts  as 
before.  The  assumptions  made  for  equation  3.5-11  are: 

(i)  The  latent  head  of  condensation  of  the  vapour 
leaving  the  top  tray  of  the  fractionator  will  not  change 
appreciably  with  the  reflux  rate. 

(ii)  The  sensible  heat  effects  in  the  condensor  are 
negligible  when  compared  to  the  latent  heat  effects. 

Erbar  and  Maddox  caution  that  the  correcting  equation  was  de¬ 
veloped  for  feeds  between  the  bubble  and  dew  point  conditions  only  and 
may  not  be  valid  outside  this  range. 


■ 
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(3.6)  Chao-Seader  K-ratio  Correlation 


The  general  Chao-Seader  K-ratio  can  be  described  as  follows: 

The  nonideal  gas  and  nonideal  solution  assumption  for  the 

gas  phase  are  handled  by  the  vapour  fugacity  coefficient  where 

"<J>  is  defined  as : 

1 

f. 


♦i 


IV 


(3.6-1) 


IV 


The  vapour  phase  is  then  described  by  the  following  equation: 

♦i  Y±  P  (3.6-2) 


made : 


For  the  liquid  phase  the  assumption  of  nonideal  solution  is 


f  =  x.  y.  f..° 
ll  li  ll 


(3.6-3) 


At  equilibrium: 


f.  =  f., 

IV  ll 


hence : 


4>.  y.  P  =  x.  y .  f .  ' 
l  ]  l  l  i  ll 


The  equilibrium  K-ratio  is  therefore  defined  by: 


K. 


f( 

l  ll 


<p .  P 

l 


(3.6-4) 


As  the  general  expressions  for  <Jk,  y^  and  f^^°/P  are  described 
by  approximating  functions,  the  accuracy  of  the  K-ratio  as  defined  in 
equation  3.6-4  is  therefore  dependent  on  the  simplifying  assumptions  and 
the  accuracies  of  the  various  curvefits  involved. 


In  the  Chao-Seader  correlation  the  expression  for  <j> .  is  obtained 
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from  the  Redlich  and  Kwong  equation  of  state.  The  generalized  liquid 

fugacity  Mf?^/P  "  is  curvefitted  in  terms  of  reduced  properties  TR,  PR 

and  ok  .  The  liquid  activity  coefficient  "y^,"  is  calculated  from  the 

Gibbs  excess  free  energy  expression  where  AS^is  assumed  to  be  zero. 

AF  .  m=  AHm— TAS  . m  (3.6-5) 

ill 

The  assumption  of  AS^=  0  is  the  main  assumption  of  the  Chao- 
Seader  correlation  and  the  correlation  is  therefore  limited  to  mixture 
of  components- which  satisfy  the  "regular"  solution  theory. 

(a)  Calculation  of  the  liquid  fugacity  coefficients 

The  theoretical  relationship  used  to  calculate  the  value  of 
the  liquid-fugacity  coefficient,  f?^/P  =  v^°,  arose  from  the  studies 

of  the  principle  of  corresponding  states.  Statistical  theory  shows 
that  a  group  of  substances  will  conform  to  the  principle  of  correspond¬ 
ing  states  only  if  their  intermolecular  properties  are  identical,  ex¬ 
cept  for  the  intermolecular  distances  and  energy  scale  factors, 

(32) 

characteristic  of  each  substance v  .  The  heavy  rare  gases  Ar,  Kr  and 
Xe,  "simple"  fluids,  satisfy  these  criteria  and  conform  to  the  corres¬ 
ponding  states  behaviour. 

(47  45) 

Pitzer,  et.  al.  *  extended  the  theory  of  corresponding 
states  involving  a  third  parameter  "<o",  called  the  acentric  factor. 

Any  property  of  a  fluid  in  reduced  dimensionless  form  is  then  assumed 
to  be  given  as  a  function  of' three  variables  (PR,  TR  and  to). 
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Zi  ■  f  <PR  '  V  V 

Z,°  =  Z.(o)  (PRJ  Tr)  +  .  Z.(l)  (PR,  Tr)  (3.6-6) 

Z.  =  expression  for  "simple  fluid 
Z  (l)  =  deviation  from  a  "simple"  fluid 

('14') 

Edmister  showed  that  the  third  parameter,  the  acentric  factor, 
might  be  calculated  from  the  component  physical  properties;  the 
critical  temperature,  critical  pressure  and  the  normal  boiling  point. 


The  liquid  fugacity  coefficient  "v.°"  is  then  calculated  in 
an  analogous  manner  with  the  use  of  the  acentric  factor  as  the  third 


parameter: 


(o) 


log  v.°  =  log  +  ok  log  v.^  (3.6-7) 

v  gives  the  liquid  fugacity  coefficient  of  a  "simple" 

vi  ^  '  accounts  for  the  departure  of  properties  from  that  of  a 


"simple"  fluid, 


.(9) 


Chao  and  Seader^  ,  using  experimental  data,  have  curvefitted  the  ex¬ 
pressions  for  and  with  approximating  functions: 

log  vW  =  Aj  ♦  A2/Tr  *  A3  Tr  ♦  A4  Tr2  ♦  As  Tr3  .  (A6  ♦  A7  Tr  ♦  Ag  TR3)  PR 


+  <A9  +  A10  TR>  PR2  -  l0«  PR 


(3.5-8) 


Cl)  _ 


log  v.-'  =  An  +  A12  Tr  +  A13/Tr  +  A14  Trj  +  A15  (Pr  -  0.6) 


(3.6-9) 


' 
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(b)  Calculation  of  the  Liquid  Activity  Coefficient 

The  composition  effect  in  the  liquid  phase  is  calculated  from 
the  Hildebrand  Scatchard^^)  equation  for  "regular"  solutions.  A 
"regular"  solution  is  defined  as  "One  involving  no  entropy  change  when  a 
small  amount  of  one  of  its  components  is  transferred  to  it  from  an  ideal 
solution  as  the  same  composition,  the  total  volume  remaining  unchanged". 
The  non  ideality  of  a  "regular"  solution  is,  therefore,  entirely  due  to 
its  heat  of  mixing.  While  no  solutions  are  actually  "regular",  the 
properties  of  solutions  of  nonpolar  fluids  such  as  hydrocarbons  are  ap¬ 
proximated  by  the  "regular"  solution  assumption. 


(25) 

It  was  shown  by  Hildebrand  and  Scott  that  the  activity  co¬ 
efficient  of  component  "i"  in  a  "regular"  liquid  solution  containing  "n" 

components  is  given  by: 

V* . 


In  Y .  = 
1 


R*T 


(6.  -  6  ) 
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.  V*. 

f  1  /  2 
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a  «  A  o  V  o 

1  =  1  1  1 


(3.6-10) 


The  parameters  "6  called  solubility  parameters  are  calculated 

from the  heat  of  vaporization  for  the  heavier  hydrocarbons  and 

from  gas  solubility  data  for  light  hydrocarbons  and  gases.  Recently, 

(33) 

Lyckman,  Eckert  and  Prausnitz  published  correlations  for  the  solubi¬ 
lity  parameter  and  the  molar  volume  in  terms  of  reduced  properties  and 
the  acentric  factor.  These  correlations  also  include  slightly  polar 


compounds . 


ft 
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A  detailed  discussion  of  equations  3.6-10  appears  in  the 

papers  published  by  Prausnitz,  Edmister  and  Chao1"4^,  Edmister^2'*  and 

(9) 

Chao  and  Seader  .  In  the  earlier  article  of  Prausnitz,  Edmister 
and  Chao,  both  the  solubility  parameter  and  the  component  molar  volume 
"V*J'  are  considered  to  be  functions  of  temperature „  Prausnitz, 
Edmister  and  Chao  have  decided  that  because  the  solubility  parameter 
involved  a  difference  which  was  relatively  independent  of  temperature 
the  solubility  parameter  could  be  considered  as  constant  at  their  25°C 
values,  Chao  and  Seader,  in  their  application  of  the  correlation,  also 
do  not  allow  either  the  solubility  parameter  or  the  molar  volume  to  vary 
with  temperature  and  assume  them  to  be  constant  at  their  25°C  values. 


(c)  Calculation  of  the  Vapour  Fugacity  Coefficient 

The  fugacity  coefficients  in  the  vapour  phase  are  calculated 

(49) 

from  the  derived  expression  from  the  Redlich  and  Kwong  equation  of 
state . 


1  A^_  _h_ 

1-h  B  1+h 

h 

z 


(3.6-11) 


This  equation  of  state  requires  two  constants  for  each  compon¬ 
ent  and  which  are  directly  related  to  the  critical  and  phy¬ 

sical  properties  of  the  components. 

0.4278  i 
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(3.6-12) 
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C3.6-13) 


The  fugacity  coefficients  of  the  components  in  the  gaseous 

mixture,  are  then  obtained  from  the  expression  derived  from  the  Redlich 

(49) 

and  Kwong  equation  of  state 

A2  2A.  B .  BP 

In  <j>.  =  (Z-l)  —  -In  (Z-BP) - {  — - - -  }  In  (  1  +  —  )  (3.6-14) 

1  B  BAB  1 


• 
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(3.7)  Enthalpy  Data  from  the  Chao-Seader  Correlation 

The  partial  molar  enthalpies  relative  to  the  ideal  gas  are 
calculated  from  thermodynamic  relationships  and  the  Redlich  Kwong  equa¬ 
tion  of  state.  The  zero  enthalpy  datum  was  taken  by  Erbar,  et.  al. 

as  ideal  gas  at  0°R.  Ideal  gas  state  enthalpies  are  evaluated  from  the 

(31 

cubic  equations  in  temperature  °F.  J  Then,  temperature  derivatives  of 
the  fugacity  and  activity  coefficients  of  the  Chao-Seader  correlation 
are  used  in  the  appropriate  thermodynamic  relationships  to  calculate  the 
effect  of  pressure,  temperature  and  composition  on  the  enthalpy  of  the 
liquid  phase. 

The  modification  of  the  Chao-Seader  correlation  to  predict 
enthalpy  data  as  developed  by  Edmister,  Persy  and  Erbar and  Erbar 
is  summarized  in  the  following  equations: 

The  ideal  partial  molar  heat  of  vapourization  is  given  by: 

3  In  v°. 

H*.  -  H°i  =  -  R*T2  (  — ^ - -  )p  (3.7-1) 

i 

The  enthalpy  of  mixing  due  to  the  non  ideal  solution,  assuming 
excess  entropy  of  mixing  is  zero  is  obtained  from: 

iT-H*.  =-R*T!(^)p>x  (3.7-2) 

AH  from  the  ideal  gas  to  the  solution  mixture  is  then  calculated 
from  the  sum  of  equation  3,7-1  and  3.7-2. 

3  In  v°.  d  In  y . 

k--h‘.  -  -  r*T7  m— ♦  c-jt-^p.  x }  (3-7-3> 

1  1  > 
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MhJ'  the  partial  molar  enthalpy  of  component  "i"  in  the  liquid  is 
therefore : 


9  In  v°.  9  In  y, 

hi  '  H°i-R‘TRTC  <  V 

3Tr  1  3Tr 


)p.  x  * 

1 , 


(3.7-4) 


Where  the  temperature  derivatives  of  the  fugacity  and  the 
activity  coefficients  as  obtained  from  the  Chao-Seader  correlation  are: 


9  In  y. 
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9  In  v° 
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(3.7-6) 


the  molar  enthalpy  of  the  liquid  mixture  is  then: 


h  =  E  x.  h. 
i-i  1  1 


(3.7-7) 


The  molar  enthalpy  of  the  gas  phase  mixture  as  derived  from 
the  Redlich-Kwong  equation  of  state  is: 


H  =  L  ^  (1 


BP,  , 

.  r)  +  1 


■0 


(3.7-8) 
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(4)  Description  of  Computer  Programs 

(4.1)  Chao-Seader  Correlation  and  Data 

Throughout  the  programs,  except  when  otherwise  specified,  the 
Chao-Seader  generalized,  methane  and  hydrogen  constants,  as  tabulated 
in  appendix  III,  table  I,  and  carbon  dioxide,  hydrogen  sulfide  and  nitrogen 
constants  calculated  by  Erbar  and  Edmister^  ,  presented  in  appendix  III, 
table  III,  were  used.  Other  necessary  Chao-Seader  correlation  data  was 
taken  from  the  data  supplied  by  Erbar with  the  N.G.P.A.  flash, 
bubble  and  dew  point  computer  program. 

When  hypothetical  components  were  considered  the  required  Chao- 
Seader  data  was  calculated  by  the  method  proposed  by  Cavett1-  ;  as  modi¬ 
fied  by  Erbar^^o  A  summary  of  this  method  is  also  presented  in  ap¬ 
pendix  III. 

A  simplified  flow  diagram  of  the  Chao-Seader  K-ratio  calcula- 
tional  procedure  is  presented  in  figure  II.  The  stage  temperature  and 
stage  compositions  needed  to  start  the  calculation  are  taken  from  the 
previous  trial.  Natural  logs  of  the  liquid  fugacity  coefficients, 
equivalent  to  the  natural  logs  of  the  ideal  K-ratios,  are  calculated 
first  from  the  expressions  in  TR,  PR  and  w.  The  Redlich  and  Kwong 
equation  of  state  is  then  solved  for  the  compressibility  factor  Z. 

Being  an  implicit  function  in  Z  it  is  solved  iteratively  for  Z  by  the 
computational  forcing  technique  of  interval  halving.  Having  obtained  Z, 
the  natural  logs  of  the  liquid  activity  coefficients  y^  and  the  vapour 
fugacity  coefficients  4k  are  calculated.  The  K-ratios  are  then 
directly  obtained  from  y^,  4>^  and  v°^. 


to  ?  <  V-.  .  v  j  t 


'*  ■  v  e  o 
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Figure  II 
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(4.2)  Thiele-Geddes  Computer  Program 

The  necessary  data  to  be  read  in  is;  the  column  specifica¬ 
tions  as  described  in  table  II,  the  component  Chao-Seader  data  for  the 
K-ratio  and  H-value  correlations  and  the  approximate  feed,  distillate, 
and  bottoms  temperatures.  The  format  of  the  input  data  is  described 
in  detail  in  appendix  III. 

To  start  the  rigorous  calculations,  some  computer  precalcula¬ 
tions  are  required  as  shown  in  the  flow  diagram  in  figure  III.  A 
linear  temperature  profile  is  first  estimated.  The  feed  condition, 
which  can  be  specified  as  (i)  bubble  point,  (ii)  dew  point,  (iii)  con¬ 
stant  fraction  liquid  flash  and  (iv)  constant  temperature  feed,  is  then 
calculated.  Initial  liquid-vapour  profiles  can  then  be  estimated  from 
the  assumption  of  constant  molar  overflow  and  the  feed  condition. 

Figure  IV  shows  a  simplified  flow  diagram  of  the  Thiele-Geddes 
program.  For  the  first  iteration,  because  no  stage  compositions  are 
available,  ideal  K-ratios  are  used.  These  are  merely  the  calculated 
pure  component  liquid  fugacity  coefficients  v°. ,  as  described  in 
section  3.6(a).  The  Thiele-Geddes  iterative  method  groups  the  equa¬ 
tions  representing  the  distillation  column  by  type,  as  illustrated  in 
figure  IV,  and  solves  one  type  of  equation  at  a  time  for  the  whole  column. 

From  the  material  balances  down  and  up  the  column  the  ratios 
1^/d^  and  1^/b^  are  obtained.  A  convergence  check  is  then  made  on  the 
calculated  distillate  and  theta.  This  convergence  check  is  bypassed  in 
the  first  two  trials  of  new  liquid  and  vapour  profiles.  The  normalized 
stage  compositions  are  then  calculated  from  which  the  new  temperature 


’ 


a 
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profile  is  obtained  by  the  "bubble  point"  method.  This  temperature  pro¬ 
file  is  checked  to  make  sure  that  it  has  converged  sufficiently.  If 
any  stage  temperature  differs  by  more  than  ten  degrees  from  that  pre¬ 
viously  calculated,  the  material  balances  are  recalculated  and  the  tem¬ 
perature  profile  correction  is  repeated.  When  the  temperature  profile 
has  stabilized,  the  reboiler  and  condenser  heat  loads  and  the  new  vapour- 
liquid  profiles  are  calculated.  The  column  calculations  are  then  re¬ 
peated  for  the  new  vapour- liquid  profiles  until  the  convergence  criteria 
are  satisfied  or  for  twenty-five  trials  of  new  vapour  liquid  profiles. 

The  theta  method  of  convergence  as  applied  to  this  program  is 
described  in  section  3.4.  Also,  the  required  forcing  constraints  to 
ensure  convergence  of  the  solutions  are  discussed  in  section  4.4. 
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(4.3)  Modified  Bergamini's  Approach  Computer  Program 

The  data  is  read  in  and  the  preliminary  computer  calculations 
are  performed  as  in  the  Thiele-Geddes  program.  Assumed  distillate  and 
bottoms  compositions  is  the  only  additional  information  that  must  be 
read  in  for  this  calculational  procedure.  Figure  III  therefore  also 
describes  the  required  precalculations  for  this  program. 

In  figure  V  a  simplified  flow  diagram  illustrates  the  modified 
Bergamini's  calculational  procedure.  In  this  approach  the  equations 
representing  the  mathematical  model  of  the  distillation  column  are 
solved  stage  by  stage.  These  equations  as  applied  to  this  calculational 
procedure  are  described  in  section  3.3. 

Ideal  K-ratios  are  used  in  the  first  column  iteration  to  esti¬ 
mate  the  first  set  of  column  stage  compositions.  The  material  balances 
provide  a  set  of  stage  compositions.  The  stage  temperature  is  then 
calculated.  Only  two  trials  for  the  stage  temperature  are  permitted. 

If  the  temperature  convergence  restriction  is  not  satisfied  the  stage 
temperature  is  then  estimated  on  the  basis  of  these  two  trials.  No 
corrections  on  the  flow  rates  are  attempted  until  the  temperature  pro¬ 
file  has  stabilized  to  within  five  degrees  from  the  previous  calcula¬ 
tion  on  all  stages.  The  stage  by  stage  calculations  are  made  from 
both  ends  of  the  column  towards  the  feed  stage. 

The  distillate  and  "0"  are  then  checked  for  convergence  of 
the  column  solution.  As  in  the  Thiele-Geddes  program,  this  conver¬ 
gence  check  is  bypassed  for  the  first  two  trials  of  new  liquid  and 
vapour  profiles.  A  check  is  then  made  on  the  oscillation  in  the  temp- 
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perature  profile  before  the  calculations  are  repeated  for  the  whole 
column,,  If  the  convergence  criteria  cannot  be  satisfied  a  maximum  of 
twenty-five  trials  at  new  liquid-vapour  profiles  are  permitted  and  the 
results  of  the  last  iteration  are  printed. 

As  in  the  Thiele-Geddes  program  the  theta  method  of  conver¬ 
gence,  section  3.4.  and  the  forcing  constraints  required  to  ensure 
convergence,  section  4.4,  are  used. 
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C4 » 4)  Fenske-Underwood-Erbar  and  Maddox  Short  Cut  Design  Computer  Program 

The  short  cut  design  program  was  written  on  the  basis  of  the 
split  being  specified  on  two  components.  To  start  the  short  cut  design 
calculations  a  rough  estimate  of  the  column  split  is  first  made.  Also, 
an  approximate  feed  temperature  from  which  the  first  distillate  and  bot¬ 
tom  temperatures  are  estimated  must  be  read  in,  T^  =  Tp  +  50,  Tg  =  Tp  -  50. 
The  Chao-Seader  input  data  are  read  in  as  described  in  appendix  III. 


The  Fenske  equation  3.5-1  or  3.5-2  is  then  solved  for  the 
total  reflux  at  the  specified  splits  on  the  key  components.  The  cri¬ 
terion  for  convergence  of  the  Fenske  equations  solutions  is: 

Abs  (Ex .  n-l)  -<  1.0  x  10"4  (4.4-1) 

i ,  u 

Next,  the  Underwood  equation  3.5-8  which  relates  the  thermal  condition 

of  the  feed  to  the  root  theta  is  solved  for  i'heta.  The  solution 

for  0.  where  a..  <  0  <  a,  .  is  achieved  by  the  Golden-Section  search. 

*  Ik  hk 

This  search  technique,  which  is  fully  described  by  Wilde requires 
starting  boundary  values  and  converges  on  the  specified  limit  of  error. 
In  the  case  of  this  program,  the  objective  function  and  the  convergence 
criterion  for  the  Underwood  equation  solution  is: 


c 

Z.  a.  X.~ 

.  — — —  -  1  +  q  <.  1.0  x  10"4  (4.4-2) 

1=1 

a.  -  9 
l 

The  theta  so  obtained  together  with  the  top  and  bottom  compositions, 
calculated  by  the  Fenske  equation,  are  then  substituted  into  the 
Underwood  equations,  3.5-5,  representing  the  rectifying  section  of  the 
column,  and  3.5-6,  representing  the  stripping  section,  to  solve  for  the 
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minimum  reflux.  Due  to  the  assumptions  involved  the  stripping  section 
minimum  reflux  differs  from  the  rectifying  section  minimum  reflux. 

The  larger  of  the  two  is  taken  as  the  minimum  reflux  for  the  column. 

The  operating  reflux  is  then  obtained  by  multiplying  the  minimum  reflux 

by  a  factor  1,2  to  1.5.  For  this  program  1.3  was  used. 

The  Erbar  and  Maddox  charts  of  (L^/V^)  vs  (N  /N)  at  various 

(LQ/V^)m^n  are  then  interpolated  to  obtain  the  required  number  of 

theoretical  stages.  The  set  of  plots  corresponding  to  Underwood's 

method  of  obtaining  the  minimum  reflux  are  read  into  the  computer  in 

the  form  of  a  twenty-one  point  three  dimensional  grid.  The  (N  /N) 

ratio  is  then  obtained  for  the  set  of  (L  /V. )  .  ,  and  (L  /V,)  min 

o  1  operating  o  1 

by  (a)  linear,  or  (b)  iagrangian  three  dimensional  interpolation 
schemes.  The  grid  is  fine  enough  so  that  the  simple  linear  inter¬ 
polation  is  of  sufficient  accuracy  for  the  short  cut  method  programmed. 
Originally  the  Erbar  and  Maddox  charts  were  developed  for  a  bubble 
point  feed.  Equation  3.5-11  was  then  developed  later  to  modify  the 
reflux  rate  when  a  feed  other  than  a  bubble  point  feed  was  specified. 

The  feed  stage  location  for  the  short  cut  design  approach 
is  assumed  to  be  at  the  optimum  point.  For  practical  purposes,  the 
feed  stage  was  selected  arbitrarily  to  fall  on  the  stage  whose  tempera¬ 
ture  was  nearest  the  feed  temperature  assuming  a  linear  temperature 
profile.  The  approximate  distillate  rate,  reflux  ratio,  the  number 
of  theoretical  stages  and  the  feed  stage  location,  estimated  from  the 
short  cut,  were  then  used  as  first  guess  in  the  rigorous  Thiele-Geddes 
or  the  modified  Bergammi's  approach  programs.  These  rigorous  proced- 
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ures  were  programmed  in  the  form  of  subroutines  to  be  used  together 
with  the  short  cut  program. 
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(4.5)  Convergence  Forcing  Constraints 

Lyster,  Sullivan,  Billingsley  and  Holland found  that 

the  temperature  and  rate  profiles  tended  to  oscillate  around  the  correct 

profiles,  and  that  the  solution  to  the  rigorous  distillation  problems 

would  not  always  converge  on  the  desired  specifications.  This  was 

particularly  true  for  wide  boiling  feeds.  The  rate  of  convergence 

could  be  significantly  increased,  as  shown  by  Holland,  and  the  region 

of  the  stability  of  solution  could  be  extended,  as  demonstrated  by 

(21) 

Friday  and  Smith ^  ,  if  these  oscilations  were  dampened. 

The  swing  of  the  temperature  profile,  in  the  programs  de¬ 
veloped  in  this  thesis,  was  reduced  by  averaging  the  previous  with  the 
newly  calculated  profile.  To  increase  the  stability  of  the  flow 
rates'  profiles,  a  limit  of  ten  degrees  was  set  on  the  maximum  tempera¬ 
ture  change  permitted  at  any  stage  between  successive  iterations  before 
attempting  a  correction  on  the  liquid-vapour  rate  profiles.  Calcu¬ 
lations  were,  therefore,  carried  out  at  constant  flow  rates  until  the 
temperature  profile  had  stabilized  to  the  ten  degree  limit. 

The  vapour  and  liquid  profiles  were  found  to  be  quite  sensi¬ 
tive  to  temperature  change  and  condenser-reboiler  heat  loads.  As  a 
result,  to  ensure  convergence  for  a  large  variety  of  problems,  a  tight 
control  was  kept  on  the  liquid-vapour  profiles.  The  maximum  change 
was  not  permitted  to  exceed  more  them  twenty  percent  of  the  previous 
flow  rate,  and  in  addition  to  this  the  profiles  were  averaged  to  dampen 
oscillations.  The  combined  restrictions  permitted  a  maximum  of  ten  per¬ 
cent  variation  between  any  successive  set  of  liquid-vapour  profiles. 
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(4.6)  Compiler  Language 

The  programs  were  developed  on  the  7040  I.B.M.  computer  at 
the  University  of  Alberta.  They  are  written  in  Fortran  IV  compiler 
language,  version  nine.  This  version  has  particular  output  control 
characters  which  may  not  be  acceptable  to  other  Fortran  versions  and 
the  output  may  have  to  be  adapted  to  the  system  in  use. 

Floating  point  trap  error  messages  were  encountered  on  the 
b^/d^  ratio  when  columns  having  large  number  of  stages  and  wide  boil¬ 
ing  feeds  were  calculated.  As  a  result  a  floating  point  error  message 
suppression  subroutine  FPT  9,  which  is  peculiar  to  version  nine,  was 
used.  This  subroutine  is  not  applicable  to  other  Fortran  versions  and 
may  have  to  be  substituted  with  a  corresponding  floating  point  suppres¬ 
sion  routine.  An  alternative  is  to  put  control  limits  on  the  ratio 
b^/d^  as  programmed  in  the  Thiele-Geddes  program. 
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(5)  Example  Problems 

(5,1)  Example  Problem  Method  Comparison 

Example  Problem  1 

A  ten  theoretical  stage  butane-pentane  splitter  the  solu¬ 
tions  of  which  are  published  by  Smith  and  also  by  Holland,  is  considered. 
The  feed  enters  at  the  fifth  stage  at  its  bubble  point  having  the  fol¬ 
lowing  composition: 

Component  Mole  Fractions  in  Feed 

C3  0,05 

i  -  C4  0,15 

n  -  C4  0,25 

i  -  C5  0,20 

n  -  C5  0,35 

The  operating  conditions  are  to  be: 

D/F  ratio  =  0,489 

Reflux  ratio  =  2,579 

Column  pressure  =  120  psia. 

The  rigorous  calculations  were  made  using  the  Thiele-Geddes 
and  Bergamini  procedures  with  both  Polynomial  and  Chao-Seader  data. 

For  the  Thiele-Geddes  programs  an  estimate  of  condenser  temperature 
160°F.  and  bottom  temperature  234°F,  was  made.  In  the  Bergamini  cal¬ 
culations  an  additional  estimate  of  top  and  bottom  composition  was 
necessary  as  well  as  the  condenser  and  bottoms  temperature. 

The  methods  compared  are: 

(1A)  Thiele-Geddes  method  with  bottom  up  enthalpy 

balances  and  Chao-Seader  K-ratios  and  enthalpies. 
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(IB)  Thiele-Geddes  procedure  with  enthalpy  balances 
from  both  ends  of  column  and  Chao-Seader  K-ratio  and 
enthalpies . 

(IC)  Bergamini  calculation  procedure  with  Chao- 

Seader  K-ratios  and  enthalpies . 

(ID)  Bergamini  calculation  procedure,  Chao-Seader 
K-ratios,  and  polynomial  H  values  from  Hollando* 

(IE)  Thiele-Geddes  method  with  bottom  up  enthalpy 
balances,  Chao-Seader  K-ratios  and  polynomial  enthalpies 
from  Holland„* 

(IF)  Thiele-Geddes  method  with  bottom  up  enthalpy 
balances  and  polynomial  K-ratios  and  enthalpies  from 
Hollando  * 

(IG)  Thiele-Geddes  calculation  procedure  with  en¬ 
thalpy  balances  from  both  ends  of  column  and  polynomial 
K-ratios  and  enthalpies  from  Holland,,* 

(IH)  Bergamini  calculation  procedure  with  polynomial 

K-ratios  and  enthalpies  from  Holland.* 

(II)  Values  obtained  from  the  sample  problems  in 
Smith. ** 

(IJ)  "Example",  Holland,  et.  al/***’  *) 

CoD.  Holland,  "Multicomponent  Distillation",  pp.  494,  496, 
Prentice-Hall  (1963),  (table  A-2+  and  table  A-6-t-t). 
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*  * 


•*  *  * 


4- 


4-  4- 


B.D„  Smith,  "Design  of  Equilibrium  Stage  Processes",  pp,  342, 
McGraw-Hill  Co.  Inc.,  New  York  (1963). 

W.Nt  Lyster,  S.L.  Sullivan  Jr.,  D.S.  Billingsley  and  C.D, 
Holland,  Petroleum  Refiner,  38.  (6),  221-30  (1959). 

Scheibel,  G.H.  and  F.J.  Jenny,  "Representation  of  Equilibrium 
Constant  Data",  Ind.  Eng.  Chem.  37,  80  (1945). 

Maxwell,  J.B.,  "Data  Book  on  Hydrocarbons",  D.  Van  Nostrand,  New 
York,  (1955). 
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Example  Problem  2 

Example  "2"  was  taken  from  the  published  example  problem  of 
Stocking,  Erbar  and  Maddox*, 


The  problem  specifications  are: 

-16  ideal  stage  column,  including  reboiler 

-D/F  ratio  =  0.27027 

-200  psia.  column  pressure 

-reflux  ratio  =  2.7 

-total  condenser 

-feed  entering  at  150°F.  with  the  following  composition  : 
Component  Concentration  in  Mole  Fraction 


c2h6 

c3h8 

1-C4 

n-C/* 

1-C5 

n-C5 


0.00271 

0.26695 

0.08923 

0.34170 

0.08863 

0.09992 

0.08017 

0.03069 


C  6 
C7 


Stocking,  M.,  J.H.  Erbar  and  R.N.  Maddox,  Ref.  Engr.  (Section  of 
Petroleum  Engineer),  32  (4),  C-15  (1960). 


The  methods  of  calculation  and  data  sources  are: 

(2A)  Thiele-Geddes  calculation  procedure  using  Chao-Seader  data. 

(2B)  Stocking,  et,  al . ,  results  using  1957  N.G.S.M.A.  data  book  for 

K-ratio  data  and  Kellog  enthalpies,  also  from  the  1957  N.G.S.M.A. 
data  book. 

(2C)  Stocking,  et.  al . ,  results  using  Winn  K-ratios  and  Kellog  en¬ 
thalpy  data  from  the  1957  N.G.S.M.A.  data  book. 


’ 
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Table  Ex  2-1 


2A 

2B 

2C 

Condenser  Temp. 

°F . 

110.7 

101.2 

101.3 

Condenser 

Heat  Load 

6.332  x 

103 

5.77  x  103 

7.93  x 

103 

BTU/lb  mole 

feed 

Reboiler  1 

Heat  Load 

8.324  x 

103 

7.50  x  103 

7.76  x 

103 

BTU/lb  mole 

feed 

Feed  Temp 

• 

°F. 

150.0 

150.0 

150.0 

Table 

:  Ex  2- I I 

Top 

Product  Compositions  in 

Mole  Fractions 

Method 

2A 

2B 

2C 

Component 

C2H6 

1.003  x 

10-2 

1.009  x  10-2 

1.009  x 

10-2 

C3H8 

9.117  x 

10_1 

9,309  x  10"1 

9.488  x 

10-1 

i-C4 

4.690  x 

10-2 

4.492  x  lO"2 

3.145  x 

10"2 

n-C4 

3.137  x 

10-2 

1.410  x  10-2 

9.69  x 

lO"3 

i-C5 

2,730  x 

10"5 

— 

— 

n-C5 

5.505  x 

10-6 

— 

— 

c6 

2.727  x 

10-9 

— 

— 

C7 

1.348  x 

10"12 

Table 

Ex  2-III 

Bottom 

Product  Compositions  in 

Mole  Fractions 

Method 

2A 

2B 

2C 

Component 

c2h6 

3.404  x 

10~7 

— 

— 

c3h8 

2.815  x 

10-2 

2.319  x  lO'2 

1.658  x 

10~2 

i-C4 

1.049  x 

10-1 

1.055  x  10-1 

1.105  x 

10"1 

n-C4 

4.566  x 

10"1 

4.620  x  10-1 

4.636  x 

10_1 

i  -C  5 

1.214  x 

10"1 

1.212  x  10"1 

1.212  x 

10-1 

n-C  5 

1.369  x 

10"1 

1.366  x  10" 1 

1.366  x 

10-1 

c6 

1.099  x 

10-1 

1.096  x  10_1 

1.096  x 

10_1 

C7 

4.206  x 

10~2 

4.196  x  lO"2 

4.196  x 

10"2 

' 


* 
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Table  Ex  2- IV 


Vapour  Profiles 


Stage 

2A 

2B 

2C 

1 

1.000 

1.000 

1,000 

2 

o  979 

.980 

.982 

3 

,956 

.955 

.957 

4 

.  935 

.927 

.927 

5 

.919 

.902 

.897 

6 

.907 

.881 

.874 

7 

.897 

.866 

.858 

8 

.882 

.849 

.842 

9 

.850 

.784 

.774 

10 

1.002 

.814 

,810 

11 

1.007 

.821 

.823 

12 

1.014 

.831 

,844 

13 

1.022 

.847 

.872 

14 

1.031 

.868 

,905 

15 

1.033 

.886 

.932 

16 

1,008 

Table  Ex  2-V 

Temperature  Profiles 

, — . 

o 

Tl 

'  00 
00 
o 

.931 

Stage 

2A 

2B 

2C 

1 

117.1 

103.3 

102.9 

2 

124.5 

105.8 

104,8 

3 

133.1 

109.3 

108,0 

4 

141.8 

113.9 

112.4 

5 

149.4 

119.1 

117.7 

6 

155.8 

124.3 

123,1 

7 

161.3 

129.4 

128.3 

8 

167.7 

135.6 

134.5 

9 

179.0 

148,1 

147.9 

10 

183,5 

152.6 

154,3 

11 

188.6 

158,3 

162.1 

12 

194.3 

165.1 

170.8 

13 

200.3 

172.8 

180.0 

14 

206.8 

181.4 

189.7 

15 

215.1 

192.9 

202.5 

16 

230.9 

212.6 

228,1 

. 
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Table  Ex  2-VI 


Method 

Seconds 


Computer  Object  Time  (sec,) 

2A  2B 

133 


2C 


Table  Ex  2-VII 

Convergence  Criterion 

2A  2B  2C 

Abs,  (D-D  spec)  1.0  x  10-4 

Abs.  (1-theta)  1,0  x  10“3 


Example  Problem  3 

In  example  3  a  column  having  a  split  feed  and  a  partial 
denser  is  considered. 


The  specifications  for  example  3  are  as  follows: 

-D/F  ratio  =  0.31 

-reflux  ratio  =  2.71 

-partial  condenser 

-column  pressure  =  300  psia. 

-number  of  theoretical  stages  =  12 


-feed  stage  location 


6 


ica  &  $fTi  .d 
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The  feed  is  entering  at  0.8  fraction  liquid  and  is  of  the 
following  composition: 


Component 


Mole  Fraction  in  Feed 


CH4 

c2h6 

c3h8 

i-C4 

n-C4 

n-C5 

C6 

C7 


0.02 

0.10 

0.15 

0.08 

0.15 

0.15 

0.15 

0.15 

0.20 


(2A)  Thiele-Geddes  calculation  procedure  Chao-Seader  K  and  H  values. 


(2B)  Bergamini  rigorous  method  and  Chao-Seader  K-ratios  and  H  values. 


(2C)  Thiele-Geddes  calculation  procedure  polynomial  K  and  H  values  from 
Holland* 


C.D.  Holland,  "Multicomponent  Distillation",  495,  497,  Prentice- 
Hall  (1963),  (tables  A-4*  and  A-8++) 

Hadden,  S.T. ,  "Vapour  Liquid  Equilibria  in  Hydrocarbon  Systems", 
Chem.  Eng.  Progr.,  44 ,  37  (1948). 

Maxwell,  J.B.,  "Data  Book  on  Hydrocarbons",  D.  Van  Nostrand,  New 
York  (1955). 


Method 

Condenser  Temp.  °F. 

Condenser  Heat  Load 
BTU/lb  mole  feed 

Reboiler  Heat  Load 
BTU/lb  mole  feed 

Feed  Temperature  °F. 


Table  Ex  3-1 


3A 

3B 

129.9 

129.9 

5.661  x 

103 

5.661 

8.772  x 

10  3 

8.771 

242.6 

242. 

3C 

127.0 

CO 

O 

H 

X 

5.670  x 

10 

x  103 

9.268  x 

10 

242.6 


• 
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Table  Ex  3- I I 


Top  Product  Compositions  in  Mole  Fraction 

Method 

3A 

3B 

3C 

Component 

ch4 

0 . 6452  x  10"1 

0.6452 

x  10-1 

0.6451 

x  10"1 

c2h6 

0.3225 

0.3225 

0.3225 

C3H3 

0 . 4606 

0.4607 

0.4742 

i-C4 

0.8987  x  10"1 

0.8985 

x  10"1 

0.9810 

x  10-1 

n-C4 

0.6207  x  10_1 

0.6200 

x  10-1 

0.4065 

x  lO^1 

n-C5 

0.4511  x  10“3 

0.4495 

x  10~3 

0.5709 

x  10"4 

c6 

0.3228  x  10“5 

0.3313 

x  10~5 

0.9875 

x  10-7 

Cy 

0.5206  x  10"7 

0.5178 

x  10"7 

0.3480 

x  10-9 

Table  Ex  3- I II 

Bottom  Product  Composition  in 

Mole  Fractions 

Method 

3A 

3B 

3C 

Component 

ch4 

0  3532  x  10"7 

.3529  x 

10~7 

.7511  x 

10-9 

c2h6 

.2898  x  10-4 

.2877  x 

10“4 

.1384  x 

10'4 

c3h8 

.1046  x  10"1 

.1042  x 

10-1 

.4346  x 

10~2 

i-C4 

.7556  x  10-1 

.7557  x 

10-1 

.7187  x 

10-1 

n-C4 

.1895 

.  1895 

.  1991 

n-C5 

.2172 

.2172 

.2174 

c6 

.2174 

.2174 

.2174 

C7 

.2899 

.2899 

.2899 

Table  Ex  3- IV 

Vapour  Profile 

Stage 

Method  3A 

3B 

3C 

1 

1.150 

1.150 

1.150 

2 

1.149 

1.145 

1.174 

3 

1.137 

1. 134 

1.175 

4 

1.112 

1.109 

1.165 

5 

1.054 

1.052 

1.123 

6 

0.739 

0.747 

0.990 

7 

0.844 

0.840 

0.915 

8 

0.909 

0.904 

0.991 

9 

0.946 

0.956 

1.034 

10 

0.963 

0.959 

1.056 

11 

0.957 

0.953 

1.037 

12 

0.927 

0.927 

0.963 

■ 


Table  Ex  3-V 


Temperature  Profile 


Method 

3A 

3B 

3C 

Stage 

1 

161.0 

161.0 

161.7 

2 

177.6 

177.6 

178.8 

3 

189.2 

189.1 

189.7 

4 

200.1 

200.0 

198.8 

5 

216.8 

216.6 

212.7 

6 

250.8 

251.1 

248.3 

7 

262.7 

262.8 

259.5 

8 

271.6 

271.7 

267.3 

9 

280.1 

280.2 

274.7 

10 

291.0 

291.1 

285.2 

11 

308.7 

308.6 

305.1 

12 

339.4 

339.4 

346.2 

Table  Ex  3-VI 

Computer  Object  Time  (sec.) 

Method 

3A  3B 

3C 

seconds 

87 

41 

Table  Ex  3-VII 


Convergence 

Criterion 

3A 

3B 

3C 

Abs . 

(D-D  spec) 

1.0  x  10-4 

1.0  x 

10"4 

0.3  x 

Abs . 

(1-theta) 

1.0  x  10"3 

1.0  x 

CO 

1 

O 

1.0  x 

. 
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Example  Problem  4 


Example  4  was  taken  from  the  published  example  problem  "Ex  1" 
by  Lyster,  Sullivan,  Billingsley  and  Holland,*  or  example  5.7  from 
Holland. ** 


The  problem  specifications  are: 

-12  ideal  stage  column  including  reboiler 

-D/F  ratio  of  .316 

-300  psia.  column  pressure 

-reflux  ratio  2.0 

-partial  condenser 

-feed  entering  on  the  fourth  stage  as  saturated  liquid  having 
the  following  compositions: 


Component 


Feed  Composition  in  Mole  Fractions 


ch4 

0.02 

c2h6 

0.10 

c3h6 

0.06 

c3h8 

0.125 

i-C4 

0.035 

n-C4 

0.150 

n-C5 

0.152 

c6 

0.113 

C7 

0.090 

C8 

0.085 

400  N.B.P.  cut 

0.070 

Polynomial  K-ratio  and  enthalpy  data  was  taken  from  Holland*** 
(tables  A4  and  A8) .  The  400  N.B.P.  cut  hypothetical  component  data  was 
also  taken  from  Holland,  et.  al.* 


I 


joo  .  .a.K  oo* 
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The  Chao-Seader  data  constants  for  the  400  N.B.P.  component 

f  81 

were  calculated  using  the  Cavett  correlation^  and  the  hypothetical 
component  was  assumed  to  have  the  following  properties: 

-critical  temperature  of  1134. 0°R. 

-critical  pressure  of  350  psia. 

-A.P.I.  gravity  =  46.28 

-molecular  weight  =  146.8 


C.D.  Holland,  "Multicomponent  Distillation",  495,  497,  Prentice- 
Hall  (1963)  (tables  A-4T  and  A-8++) . 

W.N.  Lyster,  S.L.  Sullivan,  Jr.,  D.S.  Billingsley  and  C.D.  Holland, 
Pet.  Refiner,  38,  17,  15  (1959). 


Hadden,  S.T.,  "Vapour  Liquid  Equilibria  in  Hydrocarbon  Systems", 
Chem.  Eng.  Progr. ,  44 ,  37  (1948). 

Maxwell,  J.B.,  "Data  Book  on  Hydrocarbons",  D.  Van  Nostrand,  New 
York  (1955). 


The  methods  of  calculation  were: 

(4A)  Thiele-Geddes  method  using  Chao-Seader  correlation  and  400  N.B.P. 
hypothetical  component.  Feed  entered  at  its  bubble  point. 

(4B)  Thiele-Geddes  method  with  the  Chao-Seader  correlation.  Assuming 
the  hypothetical  component  behaviour  as  n-decane.  Feed  entered 
at  its  bubble  point. 

(4C)  Bergamini  calculation  procedure  using  the  Chao-Seader  correlation 
and  400  N.B.P.  component.  The  feed  entered  at  its  boiling  point. 

(4D)  Same  as  4A,  except  feed  entered  as  liquid  feed  at  175°F. 

(4E)  Same  as  4A,  except  feed  entered  as  liquid  feed  at  165°F. 

(4F)  Thiele-Geddes  calculation  procedure  using  polynomial  data  from 

Holland^^’^l)  . 

(22  *) 

(4G)  Example  problem  as  published  by  Holland v  ’  . 
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(5.2)  Design  Example  Problems 

To  determine  the  practical  use  of  the  Chao-Seader  correla¬ 
tion  as  a  source  of  enthalpy  and  K-ratio  equilibrium  data,  the  follow¬ 
ing  stabilizer  design  example  problems  were  considered. 


Example  5 

A  stabilizer  is  to  be  designed  in  which  it  is  desired  to 
obtain  a  specified  split  on  the  two  n-Ci*  and  i-Cs  components.  The  de¬ 

sign  is  based  on  the  short  cut  method  and  the  short  cut  predictions  are 
compared  to  the  rigorous  Thiele-Geddes  calculations. 


The  specification  for  the  stabilizer  are: 


C 


7.60 


0.116 


-column  pressure  =  345  psia. 

-partial  condenser 

-partially  vaporized  feed  having  0.555  fraction 
liquid  and  of  the  following  composition: 


;  , .  8  l  :?  ...•  i- *r  :  xf?  sniirr-  ioh 


■  i 1 


< 


. 
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Component 


Mole  Fraction 


N2 

h2s 

CO  2 
Cl 
C2 
C3 

i-C4 

n-C4 

i-C5 

n-Cs 

C6 

C7 

C8 

c9 

c10 


.5426 

X 

10~3 

.1150 

,1194 

X 

10"1 

.8410 

X 

10"1 

.4069 

X 

10"1 

.7379 

X 

io-1 

.2930 

X 

10"1 

.9333 

X 

10_1 

.5209 

X 

10'1 

.6131 

X 

10-1 

,1145 

.1264 

.6782 

X 

. — 1 

1 

O 

r-H 

.3961 

X 

10"  1 

,8953 

X 

10"1 

For  this  example  the  short  cut  was  quite  conservative  com¬ 
pared  to  the  rigorous  Thiele-Geddes  calculations. 


di 

^  b.  ^n-C4 
1  H 


Short  Cut 


7  o  60 


Thiele-Geddes  (N^  =  8) 


12,5 


0.116 


0.0462 


Computer  object  time  for  both  Short  Cut 


and  Rigorous 


calculation 


3  min.  55  sec. 


, 


■ 


;  :f'C'o 
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Tstil©  tjx  5-1 

BJECT  PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


IBLDR  —  JOB  ROMAN 


FEED  CONDITION 


FLASH  TEMP=  321.833  F  FRACTION  LIQUID=  0. 55500000E  00 


component 

NITROGEN 

MF  FLASH  LIQUID 

0.81080268E  —  04 

MF  FLASH  VAPOUR 

0.  1 1 182166E-02 

H2S 

0.49699359E— 01 

0.19651337E  00 

C02 

0.331 19717E-02 

0.22694710E-01 

METHANE 

0. 16673 159E-01 

0. 16820272E  00 

ethane 

0. 13322704E-01 

0. 74834049E-01 

PROPANE 

0.42770937E-01 

0.  1 1248470E  00 

I-BUTANE 

0. 22792464E-01 

0. 3  7416656E-01 

N-BUTANE 

0.77259162E-01 

0.11  336561 E  00 

I-PENTANE 

0.538  57  353E-01 

0.49883390E— 01 

N-PENTANE 

0.65553761E— 01 

0. 56023882E-01 

HEXANE 

0 . 1 4675  076E  00 

0. 74246556E-01 

HEPTANE 

0. 18274532E  00 

0.561 77866E-01 

OCTANE 

0.10660941E  00 

0.  1 9449299E  — 0 1 

NONANE 

0.65587337E-01 

0. 7208241 IE-02 

DECANE 

0.  1 5298  523E  00 

0. 10380782E-0 1 

- 
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SHORT  CUT  METHOD 


BASIS  ONE  LB-MOLE  FEED 
SHORTCUT  MINIMUM  R  E  FLUX=  2.1616 


SHORTCUT 

NUMBER 

OF 

THEORETICAL 

PLATES 

AT 

TOTAL  REFLUX=  8.3066 

SHORTCUT 

NUMBER 

OF 

THEORETICAL 

PLATES 

AT 

OPERATING  REFLUX=  15.2346 

DISTILLATE  T  EMP=  149.862  NO  OF  THEORETICAL  PLA  TE  S=  16 


BOTTOMS  TEMP=  468.854  F 

COLUMN  PRESSURE 

=  345.000  PSIA 

REFLUX  RA  T  1 0=  3.  14091  DISTILLATE  R ATE=  0.44423 

CONDENSER  HEAT  LO AD=  0.11124641E  05  BTU/LB  MOLE 

FEED  PLATE  N0=  8 

FEED 

REBOILER 

HEAT  LOAD=  0.15219902E  05  BTU/LB  MOLE 

COMPOSITIONS  IN  MOLE  FRACTIONS 

FEED 

COMPONENT 

FEED 

DISTILLATE 

BOTTOMS 

NITROGEN 

0. 54259359E-03 

0.  1221 42  59E-0  2 

0.73684724E-12 

H2S 

0.1 1502984E  00 

0.25893518E  00 

0.56878708E-05 

C02 

0 . 1 1937059E-01 

0. 2687  1368E-0 1 

0.23799333E-08 

METHANE 

0. 84102007 E— 01 

0.18932102E  00 

0. 18076092E-08 

ETHANE 

0.40694519E-01 

0. 91606788E-0 1 

0. 12525779E-06 

PROPANE 

0.73792728E-01 

0. 165886 13E  00 

0. 18207502E-03 

I-BUTANE 

0 .29300054E-01 

0. 61431654E-0 1 

0.36171291E-02 

N-BUTANE 

0.93326097E-01 

0.  1  8565674E  00 

0. 195258 19E-01 

I-PENTANE 

0. 5208898 5 E  —  01 

0.  1  22  14259E-0  1 

0 • 83961021E-01 

N-PENTANE 

0. 6131 3 076 E— 01 

0. 66956085 E— 02 

0.1 0496905E  00 

HEXANE 

0.1 1448725E  00 

0.  1  5699002E— 03 

/  0.20587 190E  00 

HEPTANE 

0.1 264243 1 E  00 

0. 28276843E-05 

0. 22747353E  00 

OCTANE 

0.67824198E-01 

0.  1 87  08535  E-07 

0 . 12203635E  00 

NONANE 

0. 39609332 E- 01 

0. 17503272E-09 

0.71269237E-01 

DECANE 

0.89527942E-01 

0.76525608E-11 

0. 1 61 08800E  00 

- 


- 


' 
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Table  Ex  5-III 


CN 


THIELE  GEODES  CALCULATION  PROCEEDURE 

BASIS  ONE  LB-MOLE  FEED 

COLUMN  PRESSURE=  345.000  PSIA 

DISTILLATE  TEMP=  146.123 

NO  OF  THEORETICAL  PL ATES=  16 

reflux 

RAT  1 0=  3.14091  DISTILLATE 

R ATE=  0.44423 

FEED  PLATE  N0=  8 

stage 

VAPOUR 

LIQUID 

TEMPERATURE 

I 

1.83951 

1. 53474 

202.111 

2 

1.97897 

1.57328 

222.727 

3 

2.01751 

1.56150 

233. 726 

4 

2.00573 

1.52339 

242.574 

5 

1.96762 

1.45883 

252.103 

6 

1.90306 

1.34198 

264.407 

7 

1.78621 

1.6578 1 

283.787 

8 

1.65704 

1.90883 

336.363 

9 

1.35306 

2.02336 

351.323 

10 

1.46759 

2.08364 

361.942 

1  I 

1.52787 

2.  11882 

371.555 

12 

1.56305 

2.  13529 

381.768 

13 

1.57952 

2. 13252 

394.058 

14 

1.57675 

2.09780 

410.391 

15 

1.54203 

2.02750 

434.226 

16 

1.47173 

0.55577 

470.361 

CONDENSER  HEAT  LOAD=  0.10755995E  05  BTU/LB  MOLE 

REBOILER  HEAT  L 0 AD=  0.  14896920E  05  BTU/LB  MOLE 

FEED 

FEED 

COMPOSITIONS 

IN  MOLE  FRACTIONS 

4 

COMPONENT 

FEED 

DISTILLATE  BOTTOMS 

NITROGEN 

0. 54259359 E— 03 

0. 122 14222E-02 

0.2 07 5724 7 E-ll 

H2S 

0.11502984E  00 

0. 25893895E  OC 

0.20417795E-05 

C02 

0. 1 19  37  0  59  E— 0 1 

0.26871287E-01 

0. 11 195078E-08 

METHANE 

0. 84102007 E— 01 

0.1 8932044E  00 

0. 14462437E-08 

ETHANE 

0. 40694519 E— 01 

0. 9160664 3 E— 01 

0. 17935442E-07 

PROPANE 

0. 7 3792728 E—  01 

0. 16605930E  00 

0.43258454E-04 

I-BUTANE 

0 .29300054E-01 

0. 64459787E-01 

0. 1 1965750E-02 

N-BUTANE 

0.93326097E— 01 

0.  194492 1  IE  00 

0. 12463225E-01 

I-PENTANE 

0. 52088985 E— 01 

0. 51877448E-02 

0.89577557E-01 

n-pentane 

0.61313076E— 01 

0. 18341588E-02 

0.1 0885509E  00 

HEXANE 

0.11448725E  00 

0. 81200844 E— 05 

0.20599 141E  00 

HEPTANE 

0.12642431F  00 

0.  5  3346457E-07 

0. 2274763 1 E  00 

OCTANE 

0. 67824198 E— 01 

0. 12479646E— 09 

0.12203667E  00 

NONANE 

0.39609332E-01 

0. 53066324 E- 12 

0.71269417E-01 

DECANE 

0. 89527942 E— 01 

0. 1101951 3E—  1  3 

0.161 08841E  00  ' 
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Example  6 


A  stabilizer  similar  to  example  5  is  considered  where  it  is 
also  desired  to  obtain  a  specified  split  on  the  n-C4  and  i-C5  compon¬ 
ents.  The  design  requirements  are  calculated  on  the  basis  of  the 
short  cut  method  and  then  are  compared  to  the  rigorous  Bergamini 
calculations . 


The  specifications  for  this  stabilizer  are: 


d. 

<  b1 
1 

d. 

^n-C4 

5.16 

(r 

i 

}i-C5 

0.0603 

-column  pressure 

c 

280  psia. 

-partial  condenser 

-partially  vaporized  feed. having  .64528  fraction 
liquid  having  the  following  compositions: 


Component 

N2 

h2s 

C02 

Cl 

C2 

C3 

i-C4 

n-C4 

i-Cq 

n-C5 

C6 

Cy 

C8 

C9 

cl0 


Mole  Fraction 


.7855 

X 

CO 

I 

o 

.9112 

X 

10"1 

.1453 

X 

10"1 

.7188 

X 

10_1 

.2514 

X 

10_1 

.5302 

X 

10-1 

.3339 

X 

lO"1 

.7502 

X 

10"1 

.6913 

X 

10"1 

.8013 

X 

10"1 

.1402 

.1422 

.7463 

X 

10"1 

.4203 

X 

10'1 

.8680 

X 

10"1 

i 
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For  this  example  the  short  cut  method  was  also  conservative 
compared  with  the  rigorous  modified  Bergamini  calculations. 

Short  Cut  Mod.  Bergamini  (N  =  8) 

-  .  —  —  —  r - 

d. 

C  ~  „  5.16  6.64 

b.  'n-C4 
i  H 


d. 

(  „  0.0603  0.0181 

b  .  l-C  =; 

1  3 


Computer  object  time  for  both  Short  Cut  and  Rigorous 
calculation  =  4  min.  54  sec. 


anoJJ  f  si  ■  f  ■  ai'Ubow  .  o  03  :1  si  (  ,••/  b«  -icrao^ 


, 
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Table  Ex  6-1 


JECT  PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


I  BL  DR  —  JOB  ROMAN 


FEED 

CONDITION 

FLASH  TEMP  = 

305.130 

F  FRACTION  LIQUID 

=  0. 642  58000E  00 

COMPONENT 

MF 

FLASH  LIQUID 

MF  FLASH  VAPOUR 

NITROGEN 

0.75538016E  — 04 

0.20621079E-02 

H2S 

0.39793104E  —  01 

0. 18341275E  00 

C02 

0. 39669332E-02 

0. 335291 88E-0 1 

METHANE 

0.  I4135402E-01 

0.  1  7569504E  00 

ETHANE 

0.83331 625E—02 

0.55350852E-01 

PROPANE 

0. 31033582E-01 

0.92562757E-01 

I-BUTANE 

0.25989316E  —  01 

0.4668407  IE— 01 

N-BUTANE 

0.62108804E-01 

0.98232735E-01 

I-PENTANE 

0.70069022E— 01 

0.67436211E-01 

N-PENTANE 

0.83734698E-01 

0. 73636853E-01 

HEXANE 

0. 17091  161E  00 

0. 85037760E-01 

HEPTANE 

0 • 1 9049665E  00 

0.55319548E-01 

OCTANE 

0 • 10635  33  IE  00 

0.  17584170E-01 

NONANE 

0.62086809E— 01 

0.59595653E-02 

DECANE 

0. 13091 207E  00 

0. 7496422  IE-02 

- 


■ 


, 
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Table  Ex  6-II 


SHORT  CUT  METHOD 

_ 1 _ _ _ BASIS  ONE  LB-MOLE  FEED 

SHORTCUT  MINIMUM  REFLUX=  2.2332 

SHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  TOTAL  REFLUX=  7.8895 
SHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  OPERATING  REFLUX=  14.4444 
DISTILLATE  TEMP=  135.382  NO  OF  THEORETICAL  PL ATES=  15 

BOTTOMS  TEMP=  426.636  F  COLUMN  PRESSURE=  280.000  PSIA 


REFLUX  RAT  10=  3.29928  DISTILLATE  R ATE=  0.35543  FEED  PLATE  N0=  8 

CONDENSER  HEAT  LQ AD=  0.98611901E  04  BTU/LB  MOLE  FEED 


REBOILER  HEAT  LO AD=  0.13668382E  05  BTU/LB  MOLE  FEED 


COMPOSITIONS  IN  MOLE  FRA CTIONS 


COMPONENT 

FEED 

DISTILLATE 

BOTTOMS 

NITROGEN 

0.78554594E— 03 

0.22101032E-02 

0.15728879E-13 

H2S 

0.9112  3  329E-0 1 

0. 25636472E  00 

0.40003616E— 05 

C02 

0. 14532600E— 01 

0. 40886903 E— 01 

0. 362441 53E— 08 

METHANE 

0.71877454E-01 

0. 20222444E  00 

0. 10464971E-08 

ETHANE 

0.2513747  OE-0 1 

0.7072  3165E— 0  1 

0.76004779E-07 

PROPANE 

0. 53024352 E- 01 

0.14894263E  00 

0.  13197852E-03 

I-BUTANE 

0.33385703 E— 01 

0. 8520  1 108E-0 1 

0. 48130490 E— 02 

N-BUTANE 

0. 75019637 E— 01 

0. 1 7680826E  00 

0. 18890173E-01 

I-PENTANE 

0.69128043E— 01 

0.  110  5051 6E— 0  1 

0.101 15383E  00 

N-PENTANE 

0. 80125686 E— 01 

0.5497245  IE— 02 

0.12  1278 1 7E  00 

HEXANE 

0.14021995E  00 

0. 897 82863 E— 04 

-  0.2  17492 1 5E  00 

HEPTANE 

0.142  18381E  00 

0.  1 1641031E-05 

0.22058782E  00 

OCTANE 

0  •  74  626  864E— 0 1 

0.59132812E— 08 

0.11 577847E  00 

NONANE 

0.42026708E-01 

0.43170936E-10 

0. 65201 563E-01 

DECANE 

0.86802826 E- 01 

0. 14235957E— 1 1 

0.1 3466865E  00 

' 
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Table  Ex  6-1  IT 


BERGAM  I N I  CALCULATION 

BASIS  ONE  LB-MOLE 

PROCEEDURE 

FEED 

COLUMN  PRESSURE= 

280.000  PSIA 

REFLUX 

DISTILLATE  T EMP=  131.459 

RAT  10=  3.29928  DISTILLATE 

NO  OF  THEORETICAL  PLATES=  15 

R A TE=  0.35543  FEED  PLATE  N0=  8 

STAGE 

VAPOUR 

LIQUID 

TEMPERATURE 

1 

1.52811 

1.28770 

187.740 

2 

1.64313 

1.31543 

206.022 

3 

1.67086 

1.29709 

215.406 

4 

1.65252 

1.26222 

223.469 

5 

1.61765 

1.20442 

232.885 

6 

1.55985 

1.  11155 

245.637 

7 

1.46698 

1.31711 

265.998 

8 

1.31513 

1.77443 

318.427 

9 

1.12987 

1.86035 

331.450 

10 

1.21579 

1.90269 

340.685 

11 

1.25812 

1.92654 

349.363 

12 

1.28198 

1.93317 

359.168 

13 

1 .28860 

1.91329 

372.183 

14 

1.26872 

1.84508 

392.351 

15 

1.20052 

0.64457 

427.841 

CONDENSER  HEAT  LO AD=  0.95240413E 

04  BTU/LB  MOLE 

FEED 

REBOILER 

HEAT  LOAD=  0. 13369079E  05  BTU/LB  MOLE 

FEED 

COMPOSITIONS 

IN  MOLE  FRACTIONS 

COMPONENT 

FEED 

DISTILLATE 

BOTTOMS 

NITROGEN 

0.78554594E— 03 

0. 22100914E-02 

0.77487824E-13 

H2S 

0. 91123 329E-01 

0. 25636618E  00 

0.24355673E-05 

C02 

0. 14532600E-01 

0. 40886685E— 0 1 

0.29562642E-08 

METHANE 

0.71877454E— 01 

0. 20222335E  00 

0. 17210124E-08 

ETHANE 

0.25137470E-01 

0. 70722881 E- 01 

0.22836665E-07 

PROPANE 

0. 53024352 E- 01 

0.  149  10239E  00 

0. 43443 123E— 04 

I-BUTANE 

0. 33385703 E- 01 

0.90550647E— 01 

0. 18628813E-02 

N-BUTANE 

0. 75019637 E— 01 

0.  18341116E  00 

0.  15248629E-01 

I-PENTANE 

0.69128043E— 01 

0. 34607292 E— 02 

0. 10533938E  00 

N-PENTANE 

0.80125686 E— 01 

0. 1 0629355E-02 

0. 12372376E  00 

HEXANE 

0.14021995E  00 

0.29849873E-05 

0.21 754068E  00 

HEPTANE 

0.14218381E  00 

0.  1  1530399E-07 

0. 220589 13E  00 

OCTANE 

0.74626864E— 01 

0. 1 6064304E— 1 0 

0.11 577883E  00 

NONANE 

0 *42026708 E— 01 

0.42077769E— 13 

0.65201760E-01 

DECANE 

0.86802826E-01 _ 

0. 52417237E-15 

0.13466906E  00 

’ 

InI«9bP^ 


-90- 


are  : 


Example  7(a) 

The  required  specifications  for  the  stabilizer  in  this  example 


d. 

(  —  ) 

1  b.  Jn-C4 
1  ^ 


5  .  16 


0.060 


-column  pressure  =  280  psia. 

-partial  condenser 

-feed  partially  vaporized  entering  at  0.82365  fraction 
liquid  and  having  the  following  composition: 


Component 


Mole  Fraction 


h2s 

0.5680 

X 

10 

co2 

0.6518 

X 

10 

Cl 

0.2607 

X 

10 

C2 

0.1443 

X 

10 

C3 

0.4469 

X 

10 

i-C4 

0.3352 

X 

10 

n-C4 

0.7821 

X 

10 

i-C5 

0.7682 

X 

10 

n-Cs 

0.9078 

X 

10 

c6 

0.1639 

C7 

0.1676 

c8 

0.8799 

X 

10 

c9 

0.4981 

X 

10 

Cio 

0.1029 

Comparing  the  short  cut  to  the  modified  Bergamini's  calcula- 
tional  procedure  shows  that  the  short  cut  design  is  conservative. 


1 


.  J  .  ..  '  ; 
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Short  Cut  Mod.  Bergamini  (N  =  10) 

d.  -  - F - 

l-i-)  ,  5.16  6.65 


d. 

(ri).  r  0.060  0.035 

b .  i-C  s 


Computer  object  time  for  both  Short  Cut  and  Mod.  Bergamini 
was  -  4  min.  33  sec. 


Table  Ex  7(a)  I 


Flash  Comparison 


P  =  280  psia. 

L/F  =  0.82 

Compositions  (Mole 

Fraction) 

CHAO 

-SEADER 

NGSMA 

(3000#) 

Feed 

Liq. 

Vap . 

Liq . 

Vap . 

h2s 

0.057 

0.034 

0.162 

0.035 

0.158 

CO  2 

0.006 

0.003 

0.024 

0.002 

0.029 

Cl 

0.026 

0.009 

0.107 

0.008 

0.111 

C2 

0.014 

0.007 

0.049 

0.008 

0.045 

C3 

0.045 

0.032 

0.102 

0.032 

0.105 

i-C4 

0.033 

0.029 

0.056 

0.028 

0.058 

n-C4 

0.078 

0.069 

0.120 

0.070 

0.119 

i-C5 

0.077 

0.076 

0.082 

0.075 

0.087 

n-C  ^ 

0.091 

0.091 

0.090 

0.090 

0.092 

c6 

0.164 

0.177 

0.103 

0.176 

0.106 

C  7 

0.168 

0.189 

0.067 

0.191 

0.058 

C8 

0.088 

0.102 

0.021 

0.103 

0.018 

c9 

0.050 

0.059 

0.007 

0.059 

0.005 

C10 

0.103 

0.123 

0.009 

0.123 

0.008 

Temp . 

=  322. 5°F. 

T  emp .  = 

320°F . 

..  • 


fi.  7  :'-v.  V 


:  .0 


-0 . 0 
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Tablet-Ex  7(a) -IT 


SHORT  CUT  METHOD 

BASIS  ONE  LB-MOLE 

FEED 

SHORTCUT  MINIMUM  REFLUX 

=  2 

.3710 

SHORTCUT 

NUMBER  OF  THEORETICAL  PLATES 

AT  TOTAL 

R£FLUX= 

8.4015 

SHORTCUT 

NUMBER  OF  THEORETICAL  PLATES 

AT  OPERATING  RE F LUX  = 

16.1385 

DISTILLATE  TEMP=  164.022 

NO 

OF  THECRETICAL  PLATES 

=  17 

BOTTOMS  TEMP=  429.435  F 

COLUMN  PRESSURE 

=  280.000 

PSIA 

REFLUX  RAT  10=  3.45662  DISTILLATE 

RATE 

=  0.25105 

FEED  PLATE 

2 

O 

II 

o 

CONDENSER 

HEAT  L 0 AD=  0.69109629E 

04 

BTU/LB  MOLE 

FEED 

REBOILER 

HEAT  L0AD=  0.11768608E 

05 

BTU/LB  MOLE 

FEED 

COMPOSITIONS 

IN  MOLE  FRACTIONS 

component 

FEED 

DISTILLATE 

BOTTOMS 

H2S 

0.56797020E-01 

0. 22623450E  00 

0. 19873903E-05 

C02 

0.651  76908E-02 

0.25962013E— 01 

0. 10647275E-08 

METHANE 

0.26070763E-01 

0.10384806E  OC 

0.32573084E-09 

ETHANE 

0 . 1443 2030E-0 1 

0. 57487234E-01 

0.28914182E— 07 

PROPANE 

0 .44692737E-01 

0. 17775106E  OC 

0.91910668E— 04 

I-BUTANE 

0.335 19553E-0 1 

0. 12105652E  00 

0.41773733E-02 

N-BUTANE 

0.782  12289E-01 

0.26097946E  00 

0.16949177E-01 

I-PENTANE 

0.7681 5642E-0 1 

0. 1 7385279E-0  l 

0.96736554E-01 

N-PENTANE 

0.90782122E-01 

0.91 35 1635E-02 

0.118 14998E  00 

HEXANE 

0 . 16387337E  00 

0. 15866995E-03 

0. 2 1875013E  00 

HEPTANE 

0.16759776E  00 

0.20792291E-05 

'  0. 22377543E  00 

OCTANE 

0.8798  8  82  5E-0 1 

0. 10650160E-07 

0.11 748246E  00 

NONANE 

0.49813780E-01 

0. 76999001E-1G 

0.66511237E-01 

DECANE 

0 . 1028  864  IE  00 

0. 24804644E— 1 1 

0.1 3737368E  00 

I 


~ 


’ 
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Ts-ble  ftx  7(a) -TIT 

BERG AN  I N I  CALCULA T I ON  PROCEE D  UR E 
BASIS  ONE  LB-MOLE  FEED 
COLUMN  PRESSURE=  280. COO  PSIA 


DISTILLATE  TEMP=  160.569  NO  OF  THEORETICAL  PLATES3  17 


REFLUX 

R  AT  I 0=  3.45662  DISTILLATE 

RATE3  0.25105 

FEED  PLATE  NO3  10 

STAGE 

VAPOUR 

LIQUID 

TEMPERATURE 

1 

1.11882 

0.92564 

201.091 

2 

1.17669 

0.93213 

215.751 

3 

1.18318 

0.91918 

224.508 

4 

1.17023 

0.89934 

232.333 

5 

1.15039 

0.87671 

240.573 

6 

1.12775 

0.85161 

249.518 

7 

•  1.10266 

0.81509 

259.482 

8 

1.06614 

0.75011 

271.839 

9 

1.00116 

0.83145 

291.059 

10 

0.90606 

1.64102 

337.792 

11 

0.89207 

1. 72908 

345.947 

12 

0.98012 

1.77163 

356.361 

13 

1.02268 

1.79417 

363.247 

14 

1.04522 

1.82102 

371.019 

15 

1.07207 

1.80961 

381.543 

16 

1.06065 

1.78393 

398.583 

17 

1.03498 

0.74895 

430.316 

CONDENSER 

HEAT 

LOAD3  0 • 67250944E 

04 

BTU/LB 

MOLE 

FEED 

REBOILER 

HEAT 

LOAD3  0.116  17 508E 

05 

BTU/LB 

MOLE 

FEED 

COMPOSITIONS 

IN  MOLE  FRACTIONS 

COMPONENT 

FEED 

DISTILLATE 

BOTTOMS 

H2S 

0 . 56797020E-01 

0.22622108E  OC 

0.61849520E-05 

C02 

0.65176908E-02 

0. 25961896E-0  1 

0.61654118E— 08 

METHANE 

0.26070763E-01 

0. 10384765E  OC 

0.36350340E-08 

ETHANE 

0. 14432030E-01 

0.  57486963E— 0  1 

0.44408028E— 07 

PROPANE 

0.44692737E-01 

0. 1777391 5E  00 

0.95666100E-04 

I-BUTANE 

0.33519553E-01 

0.12612836E  00 

0.24771409E— 02 

N-BUTANE 

0.782  1 2289E-0  1 

0.2  708078  IE  OC 

0. 13654397E-01 

I-PENTANE 

0. 76815642 E— 01 

0. 90632171E-02 

0.99526213E-01 

N-PENTANE 

0.90782 122E-0 1 

0.27399724E-02 

0.  12029380E  00 

HEXANE 

0 . 16387337E  00 

0. 39102368E-05 

0.21 880231E  00 

HEPTANE 

0 . 16759776E  00 

0.66178185 E— 08 

0.223 77643E  00 

OCTANE 

0.87988825E-01 

0. 37443540E— 1 1 

0.11 748262E  00 

NONANE 

0.49813780E-01 

0.41731828E-14 

0.66511328E-01 

DECANE 

0. 10288641E  00 

0.22795731E-16 

0.13737387E  00 

, 
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Example  7(b) 

A  stabilizer  is  considered  having  the  same  feed  as  example  7(a), 

and  having  the  following  specifications: 

-partial  condenser 

-column  pressure  of  280  psia. 

-condenser  temperature  is  specified  at  110°F. 

-the  composition  in  the  bottoms  is  to  be  0.001  mole 
fraction.  3 

To  use  the  short  cut  program  without  change,  the  splits  on  C3 
and  i-Ci*  were  estimated  by  hand  calculations.  These  were  then  used  as 
specifications  in  the  short  cut  program. 

The  calculated  short  cut  results  are  compared  to  the  Thiele- 
Geddes  below: 


Short  Cut 


110.2 


Thiele-Geddes  (N,,  =  10) 

- - - -  - - - 


111.0 


^xb^c3 


0.0056 


0.02741 


-  95  - 

Table  &X.  7(b) -I 

SHORT  CUT  METHOD 
BASIS  ONE  LB-MOLE  FEED 
SHORTCUT  MINIMUM  REFLUX=  2.0967 

SHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  TOTAL  REFLUX=  8.1042 
SHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  OPERATING  REFLUX=  14.8886 
DISTILLATE  TEMP  =  110.175  NO  OF  THEORETICAL  PLATES3  15 

BOTTOMS  TEM  P=  401.786  F  COLUMN  PRESSU R  E  =  280.000  P SI  A 

REFLUX  RATIO3  3.34027  DISTILLATE  RA TE=  0.  17588  FEED  PLATE  N0=  10 
CONDENSER  HEAT  L 0 AD=  0.44755486E  04  BTU/LB  MOLE  FEED  - _ 

REBOILER  HEAT  LOAD3  0.78485542E  04  BTU/LB  MOLE  FEED' 

_ COMPOSITIONS  IN  MOLE  FRACTIONS _  _  _ 


COMPONENT  FEED 

H2S  0. 56797020 E— 01 

C02  0.651 7690 8 E— 02 

_ METHANE _ 0 . 2 60 7076 3E-0  1 

ETHANE  0. 14432030E-01 

PROPANE  0.44692737E— 01 

I— BUTANE  0. 33519553 E— 01 

N-BUTANE  0. 78212289 E— 01 

I-PENTANE  0. 76815642E-01 

__  N-  PENTANE _ 0.9  0782 122  E-  0  1 

HEXANE  0 • 16387337E  00 

HEPTANE  0 • 16759776E  00 

_OCTANE  _  ___  0.87988825E-01 

NONANE  0. 49813 780E-01 

DECANE  0 • 1028864 IE  00 


DISTILLATE 
0. 32284954E  00 
0. 37057444 E- 01 

0.14822999E  00 _ 

0. 82054  5  0  3  E -01 
0. 25146161E  00 
0.  7  9408927E-0  1 
0.  7  68  2547 1 E— 0 1 
0. 14461081E— 02 
0. 65809271 E  —  0  3^ 

0. 82 6 6 7050 E- 05 
0. 8553 1527E-07 
0.33412562E-09 
0.  1 96  77039E-  1  1 
0. 528 1 8508E- 1 3 


BOTTOMS 

0. 17094035E-04 
0. 11766232E-07 
0.16072590E-08 
0.29632593E-06 
0. 564905 13E-03  „ 
0. 2372601 6E-01 
0.78508257E-01 
0.92900720E-01 
0. 11001605 EO  0 _ 

0.1 9884484E  00 
0.20336582E  00 
0. 1 0676707E  0.0 
0.60444848E— 01 
0. 1 2484403E  00 
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Table  -.x  7(u)-U 


THIELE  GEODES  CALCULAT 

BASIS  ONE  LB-MOLE 

ION  PROCEEDURE 

FEED 

COLUMN  PRESSURE3 

280.000  PSIA 

REFLUX 

DISTILLATE  T EMP=  110.999 

RAT  10-  3.34027  DISTILLATE 

NO  OF  THEORETICAL  PLATES3  15 

R A TE=  0.17588  FEED  PLATE  N0=  10 

STAGE 

VAPOUR 

r 

LIQUID 

TEMPERATURE 

1 

0.76337 

0.61824 

162.547 

2 

0.79412 

0.63293 

183.961 

3 

0.80881 

0.63641 

194.113 

4 

0.81229 

0.63330 

200.003 

5 

0.80918 

0.62457 

204.620 

6 

0.80045 

0.60739 

209.731 

7 

0.78327 

0.57465 

217.222 

8 

0.75053 

0.50934 

230.395 

9 

0.68522 

0.61009 

257.049 

10 

0.60953 

1.32458 

323.748 

11 

0.50046 

1.38331 

332.438 

12 

0.55920 

1.42258 

340.154 

13 

0.59846 

1.44912 

349.877 

14 

0.62500 

1.45375  , 

366.382 

15 

0.62963 

0.82412 

401.122 

CONDENSER 

HEAT  LO AD=  0.44370146E  04  BTU/LB  MOLE 

FEED 

REBOILER 

HEAT  LOAD3  0.77695786E  04  BTU/LB  MOLE 

FEED 

w 

COMPOSITIONS 

IN  MOLE  FRACTIONS 

COMPONENT 

FEED 

DISTILLATE 

BOTTOMS 

H2S 

0.56797020E-01 

0.321 33305E  00 

0. 326976 18E-03 

C02 

0.65176908E— 02 

0. 37044800E-01 

0. 11221600E-05 

METHANE 

0.26070763E-01 

0. 148 19678E  00 

0.73495333E-06 

ETHANE 

0. 14432030E-01 

0.  82003 100E-0  1 

0.77511049E-05 

PROPANE 

0.44692737E— 01 

0.241 20245E  00 

0. 27441 526E-02 

I-BUTANE 

0.33519553E-01 

0. 92  3 10544E-0  1 

0.20969543E— 01 

N-BUTANE 

0.78212289E-01 

0.776417  04E— 0  1 

0.78334093E-01 

I-PENTANE 

0.76815642E-01 

0. 21600694E-03 

0.93167234E-01 

N-PENTANE 

0.90782122E— 01 

0.51554269E-04 

0.11 015022E  00 

HEXANE 

0 • 16387337E  00 

0.46392929E-07 

0. 19885513E  00 

HEPTANE 

0 • 16759776E  00 

0.46873702E-10 

0. 20337457E  00 

OCTANE 

0.87988825E-01 

0. 1 3688578E- 1 3 

0. 10677165E  00 

NONANE 

0.49813780E— 01 

0. 89999946E-17 

0.60447442E-01 

DECANE 

0 • 1028864 IE  00 

0.29813285E-19 

0. 12484939E  00 

- 
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Since 

the  short  cut  is 

specified  at  optimum 

feed  location, 

the  feed 

stage 

was  varied  in  the 

rigorous  calculations 

to  see  if  the 

specification  could  be  met. 

Table  Ex 

7(b)  -  III 

Changing  Feed 

Stage  Location 

N 

15 

D 

17588 

R 

3.34027 

nf 

7 

5 

4 

^Vc3 

0.0018 

0.0011 

0.0009 

Tc 

111 

112 

114 

tr 

401 

402 

401 

Qc 

4476 

4558 

4661 

Qr 

7832 

7921 

8024 

The  specifications  could 


feed  stage, 

however. 

they  could 

N 

D 

R 

14 

0.1737 

3. 7 

20 

0.1745 

2.8 

not  be  met  by  merely  changing  the 
satisfied  using: 

Computer 

F  Object  Time 

4  3  min.  12  sec. 


5 


5  min.  21  sec. 


•  ft:  b  ir,  .  r 1  9 /ft 

’  id  ■ 


' 
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(6)  Discussion  of  the  Chao-Seader  Correlation 

(6,1)  Comparison  of  the  Chao-Seader  Correlation  K-ratios  to 
Experimental  Data 

The  agreement  of  the  Chao-Seader  correlation  K-ratio  data  pre¬ 
dictions  for  hydrocarbon  systems,  including  aromatics  and  naphthenes, 

(9) 

with  experimental  values,  reported  by  Chao  and  Seader  ,  Shelton  and 

/'CO'j  /'O'j 

Wood  L  ,  and  Cavett ^  J  is  well  within  the  accepted  deviation  of 
standard  published  paraffin  equilibrium  values .  Some  of  the  reported 
deviations  of  published  data  are  tabulated  in  Table  III  The  ac¬ 
curacy  is  reported  as  the  average  percent  absolute  arithmetic  deviation 
relative  to  experimental  values- 


Table  III 


Method  of  K-ratio  Calculation 

Number  of  Points 
Considered 

Average  Deviation 
Percent 

NGSMA* 

156 

8.0 

Rzasa* 

156 

9.1 

Winn* 

156 

10.1 

Meyers  and  Lenoir 

156 

7.3 

(23) 

Hadden  and  Grayson^ 

1,964 

6.8,  6.2,  7.1  (for 
the  three  correla¬ 
tions) 

(9 ) 

Chao  and  Seader 

2,692 

8.7 

Cavet^lchao-Seader  Black  eqn„ ) 

472 

4.8 

(Chao-Seader  Redlich  and 
Kwong  eqn„) 

615 

5,2 

* 


Comparison  made  by  Meyers  and  Lenoir. 


, 


. 
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Multicomponent  hydrocarbon  mixtures  often  contain  dissolved 

nonhydrocarbon  gaseous  components.  Sets  of  special  Chao-Seader 

constants  for  carbon  dioxide,  hydrogen  sulfide  and  nitrogen  have  been 

( 181 

calculated  by  Erbar  and  Edmister1-  J ,  who  claim  reasonable  K-ratio 

predictions  for  these  components.  Only  scant  information,  due  to 

lack  of  reliable  data,  is  available  on  the  accuracy  and  dependability 

of  these  K-ratio  predictions  in  natural  gas  systems.  Comparisons  of 

the  predicted  Chao-Seader  K-ratios  to  experimental  data  were,  therefore, 

('54') 

made  on  several  sweet  and  sour  hydrocarbon  systems  studied  by  Saxena 

Bubble  and  Dew  point  calculations  were  performed  on  the 
systems  C02-Ci~n-C4  and  H2S-Ci-n-C4,  and  these  were  compared  to  the 
experimental  data  of  Saxena,  which  ranged  from  -20  to  100  °F.  in  tem¬ 
perature  and  400  to  1200  psia.  in  pressure.  Bubble  point  calculations 
were  of  special  interest  because  they  were  used  in  the  rigorous  Thiele- 
Geddes  calculational  procedure.  Three  different  sets  of  constants  far 
the  liquid  fugacity  coefficients'  equations  were  investigated.  These 
were : 

(a)  the  Grayson  Streed  set  of  constants,  appendix  III 
t  ab 1 e  II 

(b)  the  Chao-Seader  constants,  appendix  III  table  I 

(c)  the  Chao-Seader  set  of  generalized  constants  combined 
with  the  special  constants  for  carbon  dioxide  and 
hydrogen  sulfide  proposed  by  Erbar  and  Edmister,  ap¬ 
pendix  III  table  III. 

Little  difference  in  the  accuracy  of  data  prediction  was  ob¬ 
served  between  the  three  sets  of  constants.  The  special  constants  of 
comparison  (c)  gave  only  slightly  better  values  than  the  generalized 


' 
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constants  in  (a)  and  (b)  for  carbon  dioxide  and  hydrogen  sulfide. 

Sample  comparisons  on  the  three  sets  of  constants  are  presented  in 
tabular  form  in  appendix  II. 

For  mixtures  containing  more  than  0  05  mole  fraction  of  any 
one  component  and  less  than  30  mole  percent  hydrogen  sulfide  and 
carbon  dioxide  in  the  liquid  phase,  the  calculated  bubble  and  dew 
point  temperatures  were  usually  within  15°F.  of  experimental.  The 
dew  point  temperatures,  as  expected,  compared  consistently  better  to 
experimental  values  than  did  the  bubble  point  temperatures.  Differ¬ 
ences  of  up  to  30°F.  between  predicted  and  experimental  temperatures 
were  encountered  in  bubble  and  dew  point  calculations  for  the  -20°F. 
temperature  data  and  also  for  the  higher  pressure  data  of  1200  psia., 
at  high  concentrations  of  hydrogen  sulfide  and  carbon  dioxide.  An 
increase  in  the  differences  between  experimental  and  predicted  K- 
ratios  and  temperatures  was  observed  for  mixtures  approaching  binaries. 

A  constant  temperature  flash  K-ratio  comparison  has  been 
f541 

recently  made  by  Saxena  on  the  systems  CC^-C^-n-Cq,  H2S-C1-n-C4 
and  Ci -n-Cq-n-Cg .  Absolute  standard  deviations  of  20-40  percent  from 

experimental  data  were  obtained  for  these  systems  where  the  carbon 
dioxide  and  hydrogen  sulfide  concentration  in  the  liquid  phase  was  less 
than  30  mole  percent.  These  deviations  appear  to  be  of  about  the 
same  magnitude  as  those  reported  by  Erbar  and  Edmister1  for  carbon 
dioxide  and  hydrogen  sulfide. 

The  deviations  of  the  above  ternary  systems  are  about  four 

times  those  reported  for  hydrocarbon  systems,  table  III,  for  the  Chao- 
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Seader  correlation  Better  K-ratio  predictions  have  been  reported  by 

/  c,  O  \ 

Shelton  and  Wood"  '  for  systems  where  a  large  number  of  hydrocarbon 
components  are  present  and  if  the  concentration  of  the  gaseous  compon¬ 
ents,  such  as  hydrogen  sulfide  and  carbon  dioxide  is  low  A  com¬ 
parison  of  the  Chao-Seader  K-ratios  to  N„G.S  M.A.  values  is  presented 
in  table  Ex-7(a)-I  for  such  a  system. 

In  summary,  the  Chao-Seader  correlation,  although  some  im¬ 
provement  in  its  accuracy  is  desired  when  dissolved  non  hydrocarbon 
gaseous  components  are  present  in  the  mixture,  is  acceptable  for  pre¬ 
dicting  vapour- liquid  equilibrium  data  in  hydrocarbon  mixtures.  At 
present  it  appears  to  be  one  of  the  best  sources  of  data  available  for 
computer  use  for  both  hydrocarbon  and  natural  gas  systems. 


io  I  ™ 


1  )  -/f' 

’ 


■ 


*fiw  bn 


. 


_ 
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(6,2)  Theoretical  Limitations  of  the  Chao-Seader  Correlation 
Since  the  Chao-Seader  K-ratio  is  defined  as: 


the  K-ratio  thus  calculated  is  subject  to  the  various  limitations  in 

the  calculation  of  v..  y ,  and  d>., 

11  i 

The  pure  component  liquid  fugacity  coefficient  v^0  is  pri¬ 
marily  responsible  for  reflecting  the  effect  of  component  identity, 
temperature  and  pressure.  Actually,  it  is  the  pure  component  ideal 
K-ratio,  which  requires  the  ideal  gas  and  ideal  solution  assumptions. 
The  accuracy  of  depends  on  the  curvefit  of  the  experimental  data 
in  terms  of  PD,  T  and  the  acentric  factor  w,  The  acentric  factor 
which  is  used,  in  the  Chao-Seader  correlation  is  not  derived  according 
to  Pitzer's  definition  but  is  determined  emperically  as  a  parameter  for 
the  best  fitting  of  the  vapour  pressure  curve  by  the  liquid  fugacity 
coefficient  equations. 

The  gas  phase  is  quite  adequately  handled  by  the  Redlich  and 

Kwong  equation  of  stage,  from  which  the  vapour  fugacity  coefficient  ex- 

(49) 

pression  was  derived  by  Redlich  and  Kwong 

Both  v/5  and  <{k  are  limited  only  by  the  accuracy  with  which 
they  represent  the  available  data  and  this  accuracy  may  be  improved  by 
using  more  complicated  expressions.  Hence  they  are  not  limited  by 
theoretical  assumptions  but  merely  by  the  experimental  data  and  the 
mathematical  expressions  representing  them. 


1 
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r  r  fi  ^ 

Scatchard^  introduced  the  concept  of  expressing  the  non- 
ldeality  of  a  liquid  mixture  m  terms  of  the  excess  Gibbs  free  energy 


m 


AF  , 

1 


In  y 


AF 


m 


R*T 


(6.2-1) 


The  excess  Gibbs  free  energy  AF^m  consists  of  two  parts: 
an  excess  enthalpy  term  and  an  excess  entropy  term  as  shown  by  equation 
3.6-5.  The  assumption  of  AF^m  equal  to  2ero  leads  to  the  equations 
for  ideal  solution.,  The  next  simplest  assumption  is  to  set  either 
A>H  m  or  TAS.m  equal  to  zero.  The  condition  of  AH.m  =  0  leads  to  the 

l  i  n  i 

(201  (271 

concept  of  "athermal"  solutions  developed  by  Flory  and  Huggins  „ 

(67  441 

The  Wilson  equation  ’  is  a  semi-emperical  extension  of  this  ap¬ 
proach.  It  claims  to  predict  multicomponent  equilibrium  data  from 
binary  data  for  hydrocarbons  as  well  as  polar  compounds. 

An  alternate  approach  is  to  assume  AS^m  =  0.  This  leads  to 
the  concept  of  "regular"  solutions.  Van  Laar,  Hildebrand  and 
Scatchard  have  taken  this  approach.  The  Chao-Seader  correlation  is 
also  based  on  this  assumption  of  "regular"  solutions.  This  theory  of 
solution  describes  well  the  multicomponent  hydrocarbon  equilibrium 
behaviour  and,  to  a  limited  degree,  the  solution  of  various  non¬ 
hydrocarbon  gases  in  hydrocarbon  systems.  The  liquid  activity  co¬ 
efficient  Y  L  assuming  AS^111  =  0  is  obtained  from  equation  3.6-10  which 
is  also  described  below: 


In  y . 


V.*  (6.-  6  ) 

l  i  m 

R*T 
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Chao  and  Seader  found  that  the  solubility  parameter  and  the 
component  molar  volumes  could  be  taken  as  constants  for  the  range  of 
the  correlation  although  they  were  actually  slightly  temperature  de¬ 
pendent  .  Furthermore,  this  simplification  assumes  that  the  excess 
free  energy  is  independent  of  temperature  as  required  by  the  vanish¬ 
ing  of  the  excess  entropy  in  the  "regular"  solution  assumption. 

Because  of  the  squared  term  in  the  above  equation,  log  y^ 
must  always  be  greater  than  zero,  and  hence  y^  must  always  be  greater 
than  unity.  Also,  the  solubility  parameters  y.  and  the  component 
partial  molar  volumes  V\*  of  the  non  hydrocarbon  gaseous  components 
are  not  significantly  different  from  those  of  the  light  hydrocarbons. 

As  a  result  the  predicted  y ^  will  be  >  1  and  close  to  unity  for  natural 
gas  systems. 

Large  variation  in  K-ratios  in  nonideal  systems,  such  as 

CO2-H2S-C  ,  has  been  attributed  to  variations  of  y^„  Robinson,  et. 

ai^  (51.52)  Stained  (y.)  as  high  as  10.1  at  40°F.,  400  psia.,  and 

1  LU  2 

(y;)  as  low  as  0,168  at  160GF.,  1600  psia.,  for  the  system  CO2-H2S-C1. 
1  w 

These  large  variations  in  y^  cannot  be  accounted  for  by  the  regular 
solution  theory,  especially  in  the  latter  case  where  y^  is  less  than 
one.  In  cases  like  this  the  Chao-Seader  correlation  fails. 


' 
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(6  3)  Practical  Limitations  of  the  Chao-Seader  Correlation 

The  Chao-Seader  correlation  based  on  the  assumption  of 
m 

"regular"  solutions,  AS  -0,  applies  to  hydrocarbons  of  various  mole¬ 
cular  types  including  paraffins,  olefins,  aromatics  and  naphthenes, 
Chao  and  Seader  claim  an  overall  average  deviation  in  K-ratios  of 
8.7  percent  for  these  components  from  experimental  values.  The 
vapour- liquid  equilibrium  K-ratios  for  nonhydrocarbon  gases  in  solu¬ 
tion  such  as  carbon  dioxide,  nitrogen,  hydrogen  sulfide,  hydrogen, 
carbon  monoxide  and  oxygen  may  also  be  predicted  provided  that  their 
concentration  in  the  liquid  phase  is  below  30  mole  percent.  Accord¬ 
ing  to  Chao  and  Seader  the  correlation  is  subject  to  the  following 
limitations : 


Table  IV 


Chao-Seader  Correlation  Limitations 
for  Hydrocarbons  (except  Methane) 

-Reduced  temperature  0,5  to  1,3  based  on  the  pure  component  critical 
temperature „ 

-Pressure  up  to  2000  psia, ,  but  not  to  exceed  0,8  of  the  critical 
pressure  of  the  system. 


for  Methane  and  Gases 


-Temperature  from  -100°F„  to  about  0,93  in  the  pseudoreduced  tempera¬ 
ture  of  the  equilibrium  liquid  mixture  but  not  to  exceed  500°F. 

The  pseudoreduced  temperature  is  based  on  the  molar  average  of  the 
critical  temperatures  of  the  components, 

-Pressure  up  to  8000  psia. 

-Concentration  up  to  20  mole  percent  of  dissolved  gases  in  the  liquid. 
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(7)  Discussion  of  Problems 


(7  1 )  Comparison  of  Literature  Example  Problems 
(a)  Reproducibility  of  Results 

The  Thiele-Geddes  and  the  modified  Bergammi's  method  rigor¬ 
ous  calculations  for  example  problems  one  to  four  agreed  generally  to 
at  least  three  digits,.  The  slight  variations  in  results  can  be  attri¬ 
buted  to  the  convergence  tolerences.  With  the  convergence  restric¬ 
tions  described  in  section  5„5  the  solutions  were  stable  and  converged 
rapidly  for  the  four  example  problems,  as  illustrated  in  figure  VI. 

Differences  in  the  calculations  between  the  two  methods  lie 
in  the  grouping  of  the  column  equations.  The  Thiele-Geddes  procedure 
groups  the  equations  by  type,  hence  the  stage  compositions  are  solved 
for  the  whole  column  followed  by  the  temperature  and  the  rate  profiles. 
In  the  modified  Bergamini's  calculational  procedure  the  equations  are 
solved  for  each  individual  stage.  As  a  result  the  stage  compositions 
are  immediately  available  and  can  be  corrected  as  the  stage  temperature 
is  corrected.  Since  the  K- ratios  are  composition  dependent,  it  was 
expected  that  this  method  would  converge  more  rapidly.  However,  for 
the  programs  developed  little  if  any  computational  time  was  saved. 

For  the  problems  calculated  with  the  Chao-Seader  data  close 
convergence  tolerences  could  be  specified.  Abs.  (D-Dspec)  <_  1.0xl0-u 
and  Abs.  (1 -theta)  <_  1.0x10”  were  found  to  be  the  optimum  for  giving 
sufficiently  accurate  results  and  yet  a  reasonable  computer  time 
for  convergence.  When  the  specifications  for  these  convergence 
criteria  were  set  to  1.0  x  10"6  the  solution  in  some  cases 


. 
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would  oscillate  and  never  reach  these  convergence  specifications.  For 
some  of  the  polynomial  data  calculations  the  convergence  criteria 
tolerences  had  to  be  relaxed  to:  Abs.  (D-Dspec)  ^5.0xl0~4  and 
AbSo  (1- theta)  <..  2  .  5x10'  3 . 

(b)  Data  Variation 

Stocking,  Erbar  and  Maddox point  out  that  substantial 
differences  in  distillation  column  rigorously  calculated  results  occur 
due  to  variation  of  K-ratio  and  enthalpy  data  sources.  Often  all  the 
data  required  cannot  be  obtained  from  one  source  and  the  resulting  com¬ 
bination  of  data  sources  may  lead  to  inconsistencies.  The  need  for  a 
general  correlation  which  predicts  K-ratio  and  enthalpy  data  consis¬ 
tent  with  the  equilibrium  data  for  a  wide  range  of  temperature,  pres¬ 
sure  and  composition  is,  therefore,  apparent. 

A  comparison  of  one  such  correlation  proposed  by  Chao  and 
Seader  to  a  variety  of  conventional  data  in  example  problems  published 
by  Holland  and  Stocking,  et„  al.,  was  made  for  example  problems  one  to 
four.,  These  comparisons  show  that  the  Chao-Seader  data  falls  well 
within  the  range  of  results  for  conventional  data  as  found  by  Stocking, 
et .  al,. 

(c)  Range  of  Components  in  the  Feed 

In  example  problem  one  the  temperatures,  compositions,  heat 
loads  and  flow  rates  for  the  Chao-Seader  data  are  in  close  agreement 
with  the  results  calculated  using  the  polynomial  data  from  Holland 
K- ratios  from  Scheibel  and  Jenney1'57'*  and  enthalpy  data  from  Maxwell . 
This  is  probably  due  to  the  narrow  range  five  component  feed,  C->  to 


- 
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n-C5o  The  convergence  pressure,  which  exhibits  the  effect  of  composi¬ 
tion,  does  not  vary  over  a  wide  range  throughout  the  column  and  hence 
the  effect  of  composition  on  the  equilibrium  data  may  be  relatively  un¬ 
important  o 

For  example  problem  two,  a  seven  component  feed  C2H6to  C 7 H  6 
is  specified*  Differences  between  the  Chao-Seader  data  results  and 
those  presented  by  Stocking,  et*  al„,  for  N0G*S»M*A*  K's  and  Kellog 
enthalpies  and  Winn  K's  and  Kellog  enthalpies,  are  due  to  the  compon¬ 
ent  "propane"*  High  concentrations  of  propane  occur  in  the  rectify¬ 
ing  section,  i  e*,  95%  plus  in  the  distillate*  The  temperature 
profile  in  the  top  section  of  the  column  is,  therefore,  largely  de¬ 
pendent  on  the  stage  compositions  and  on  the  equilibrium  data  of 
propane*  A  distillate  temperature  of  110o7cFo  was  calculated  from  the 
Chao-Seader  data  compared  to  101„2oF„  for  the  N„G.S0M*A.  K's* 

A  bubble  point  feed  having  eleven  components  ranging  from 
CH*.  to  a  400  N.B.P,  cut  hypothetical  component  was  calculated  for  ex¬ 
ample  problem  four*  The  bubble  point  temperature  calculation  is  ex¬ 
tremely  sensitive  to  the  equilibrium  data,  especially  for  a  wide 
boiling  feed*  Therefore,  this  type  of  specification  is  not  particu¬ 
larly  a  good  one  for  this  problem*  A  feed  temperature  of  181* 23F. 
was  obtained  for  the  Chao-Seader  data  as  compared  to  164*8°Fo  calcu¬ 
lated  from  the  data  of  Holland,  K-ratios  from  Hadden*'2^*  The  flash 
calculations  on  the  other  hand  agree  quite  well  as  shown  in  the  feed 
for  example  problem  7,  table  Ex-7(a)-I*  The  Chao-Seader  data  constant 
L/F  =  0*82  flash,  temperature  was  322„50F„  compared  to  320‘F„  obtained 
for  the  N  G.S.M  A*  data* 
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(d)  Temperature  Profile 

The  temperature  profile  calculated  by  the  bubble  point  method 
is  largely  dependent  on  the  stream  compositions  and,  therefore,  on  the 
equilibrium  data*  In  example  one,  because  of  the  narrow  component 
range  feed,  the  temperature  profiles  were  in  good  agreement  for  all  com¬ 
binations  of  K-ratio  and  enthalpy  data  studied,,  A  variation  in  the 
temperature  profile  was  noticeable  for  the  change  in  K-ratio  data  source 
for  calculations  IE  (Chao-Seader  data)  and  IF  (polynomial  data) »  The 
change  in  temperature  profile  due  to  different  enthalpy  data  source  for 
calculations  IB  (Chao-Seader)  and  IE  (polynomial)  was  negligible. 

Up  to  20  percent  variation  in  the  temperature  profiles,  com¬ 
pared  to  N.G.S.M.A.  K's  and  Kellog  H-values,  was  obtained  by  Stocking, 
et.  aL  for  example  problem  two,  using  various  sources  of  K-ratio 
data,,  The  variation  due  to  change  in  enthalpy  source  for  this  problem 
was  only  10  percent.  According  to  these  variations  the  temperature  pro¬ 
file  calculated  from  the  Chao-Seader  data  Is  in  fair  agreement  with  the 
conventional  data  sources,  as  it  varied  only  10  percent  from  the  N.G.S.M.A. 
data,.  The  main  differences  in  the  temperature  profile  from  the  calcula¬ 
tions  made  by  Stocking,  et.  al,  occurred  in  the  stripping  section  of  the 
column,  while  the  rectifying  section  profiles  were  almost  identical.  How¬ 
ever,  with  the  Chao-Seader  data,  T^=110 . 7°F . ,  the  difference  in  the  tem¬ 
perature  profiles  compared  to  the  N.G.S.M.A.  data  Tp=101 . 2°F „ ,  occurred 
in  the  rectifying  section  of  the  column.  The  almost  Identical  results, 
in  the  rectifying  section,  obtained  by  Stocking,  et„  al.,  is  probably 
the  result  of  a  common  source  of  K-ratio  data  for  propane  for  some  of  the 
charts.  This  component  reaches  a  concentration  of  95  percent  in  the 
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rectifying  section  and  hence  the  temperature  profile  is  very  sensitive 
to  its  K-ratio  data. 

In  example  problem  three,  where  a  split  feed  and  a  partial 
condenser  were  considered,  the  temperature  profiles  compared  well  for 
the  Chao-Seader  data,  =  129„9°F.,  Tg  =  339, 4"F,,  and  the  polynomial 
data,  Tp  -  127, O'F,,  Tg  =  346, 2°F.  With  the  specification  of  a  bubble 

point  feed;  for  example  problem  four,  a  slightly  poorer  temperature 

>> 

comparison,  =  118o6°F„,  Tg  -  366„6°F.,  for  polynomial  data,  was 
obtained,  For  all  the  problems  considered  the  temperature  profiles 
for  the  Chao-Seader  data  agreed  within  10  percent  with  those  calculated 
from  polynomial  data, 

(e)  Vapour  Liquid  Flow  Rate  Profiles 

Vapour- liquid  flow  rate  profiles  are  sensitive  to  both  K-ratio 
and  enthalpy  data.  In  particular  the  temperature  profile,  which  is 
dependent  on  the  stage  compositions  and  hence  on  the  K-ratio  data,  has 
the  controlling  influence  on  the  vapour  profile.  This  temperature  in¬ 
fluence  was  exhibited  in  the  computer  column  calculations  where  the 
stability  of  the  vapour  profile  and,  therefore,  the  stability  of  the 
solution  was  directly  dependent  on  the  permissible  amount  of  variation 
in  the  temperature  profile  for  each  iterative  column  calculation.  Only 
slight  variations  occur  in  example  problem  one  vapour  profiles  when 
using  Chao-Seader  or  polynomial  K-ratio  and  enthalpy  data  sources,  be¬ 
cause  of  the  close  comparison  of  both  the  stage  compositions  and  tempera¬ 
ture  profiles. 

The  feed  condition  specification  has  a  significant  effect  on 
the  vapour  profile  as  demonstrated  in  example  problem  four.  For  the 
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specification  of  a  bubble  point  feed,  the  vapour  loading  calculated 
for  the  Chao-Seader  data,  Tp  •-  181 -20F-,  was  20  percent  less  than  that 
for  polynomial  data  from  Holland,  T  =  164-8°F»  When  the  feed  was 

r 

specified  to  enter  at  a  temperature  of  165CF-,  the  difference  in  the 
vapour  profiles  was  reduced  to  12  percent  - 

Stocking,  et-  al-,  obtained  a  10  percent  variation,  compared 
to  N..G.S.M-A-  K’s  and  Kellog  enthalpies,  in  vapour  loading  for  con¬ 
ventional  enthalpy  data  sources  and  20  percent  for  K-ratio  data  sources 
The  Chao-Seader  data  calculated  vapour  profiles  compared  reasonably 
well  to  the  polynomial  data  ones  for  example  problems  two,  three  and 
four,  and  the  variations  were  comparable  to  those  of  Stocking,  et-  al- 

This  20  percent  variation  in  vapour  loading  for  different 
data  could  prove  to  be  a  serious  factor  if  the  column  was  to  be  de¬ 
signed  on  the  conservative  side- 

(f)  Condenser-Reboiler  Heat  Loads 

Condenser-reboiler  heat  loads  are  dependent  on  both  equili¬ 
brium  and  enthalpy  data  sources-  Stocking  showed  that  for  example 
problem  two  large  variations  up  to  40  percent  from  N-G-S-M-A-  data  are 
possible  for  reboiler  heat  loads  Usually  the  agreement  is  within  20 
percent  and  is  directly  dependent  on  the  degree  of  variation  in  the 
vapour- liquid  profiles  - 

For  the  four  problems  studied  the  Chao-Seader  data  calculated 
heat  loads  compared  within  10  percent  to  polynomial  data  heat  loads  as 


shown  in  table  V 


, 
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Table  V 

Condenser-Reboiler  Heat  Loads 

Example  Problem  2 


K-ratio-Enthalpy  Data  Source 

Chao-Seader  NGSMA-Kellog  Winn-Kellog 

Polynomial  from 

Holland 

BTU/ lb 

mole 

Qc 

6,332  5,770  7,930 

feed 

m 

If 

Qr 

8,324  7,500  7,760 

” 

Example  Problem  3 

t? 

It 

Qc 

8,771 

9,268 

»? 

IT 

<*R 

5,661 

5,670 

Example  Problem  4 

?? 

ft 

3,949 

3,902 

ft 

II 

11,610 

13,290 
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(7,2)  Short  Cut  Design  Compared  to  the  Rigorous  Solution 

The  Fenske-Underwood-Erbar  and  Maddox  short  cut,  a  method 
commonly  used  for  hand  design  calculations,  was  programmed  with  the 
Chao-Seader  correlation  as  the  data  source  for  the  specified  split  on 
two  components.,  The  results  calculated  by  this  method  were  always 
conservative  compared  to  the  rigorous  method,  for  the  example  design 
problems  five  to  seven(a). 

The  feed  stage  location  for  the  short  cut  method  is  assumed 
to  be  at  the  optimum  location.  Therefore,  some  criterion  must  be 
used  to  determine  where  the  feed  stage  is  to  be  located.  The  choice 
of  the  feed  stage  as  that  stage  whose  temperature  is  closest  to  the 
feed  temperature  on  the  basis  of  a  linear  temperature  profile  was  not 
a  particularly  good  one.  A  better  way  of  estimating  the  optimum  feed 
stage  location  would  provide  a  better  basis  for  comparison  of  the  short 
cut  and  rigorous  calculations.  Although  the  short  cut  design  satis¬ 
fied  the  specifications  for  example  problem  seven (b),  the  specifications 
could  not  be  met  by  rigorous  calculations  based  on  the  short  cut  design 
by  merely  changing  the  feed  stage  location.  The  rigorous  design  could, 
however,  be  readily  obtained  by  trial  and  error. 
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(8)  Conclusions 

The  Chao-Seader  correlation  is  limited  to  hydrocarbon  systems 
and  is  applicable  only  where  the  liquid  activity  coefficients  are  £  one. 
The  Chao-Seader  calculated  K-ratio  absolute  arithmetic  average  deviation 
from  experimental  data  from  literature  sources  ranged  from  8„7  to  4,8 
percent  for  hydrocarbon  systems.  This  is  well  within  the  reported 
range  of  polynomial  data,.  When  nonhydrocarbon  components  are  present 
up  to  40  percent  deviation  from  experimental  K-ratios  is  possible  for 
natural  gas  systems.  Poor  K-ratios  are  also  predicted  in  binary 
systems.  However,  in  multicomponent  hydrocarbon  systems  the  Chao- 
Seader  data  predictions  are  accurate  enough  to  be  useful  for  design 
calculations 

The  time  requirement  for  the  Chao-Seader  data  calculated 
problems  was  only  three  times  that  required  for  polynomial  data.  The 
versatility  of  the  general  correlation,  such  as  the  Chao-Seader,  in 
handling  a  variety  of  problems  at  various  conditions  is  well  worth  the 
additional  computer  time  requirement. 

There  was  little  computational  time  difference  between  the 
Thiele-Geddes  and  the  modified  Bergamini  calculational  procedure  com¬ 
puter  programs.  The  problems  compared  to  literature  polynomial  data 
calculated  results  compared  to  within  20  percent  in  product  compositions, 
heat  loads,  temperature  profiles  and  vapour-liquid  profiles.  This  is 
within  the  variation  that  Stocking,  et,  al.  found  for  conventional 

polynomial  data  for  example  problem  2. 


, 
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The  time  requirement  is  reasonable  for  rigorous  column  design 
using  these  programs.  The  advantages  of  the  rigorous  calculations  is 
that  the  optimum  feed  stage  location  can  be  calculated  and  the  vapour- 
liquid  loadings  throughout  the  column  can  be  obtained.  This  in  turn 
can  provide  a  smaller  margin  of  error,  and  hence  the  column  can  be  de¬ 
signed  with  closer  tolerences. 
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Nomenclature 


A 

A 

A 


i,n 


B 

B 

B 


D 


d 


F 

f  , 
ll 

•£*  ® 
ri  1 


£. 


i,n 


IV 


vap 


h  * 
f 

H„ 


H.  * 

l 


H.° 

1 


i,n 


Chao-Seader  liquid  fugacity  equations  constants,, 

Redlich  and  Kwong  equation  of  state  constant „ 

Redlich  and  Kwong  equation  of  state  component  "i"  constant 

absorption  factor, 
bottom  product  rate. 

Redlich  and  Kwong  equation  of  state  constant. 

Redlich  and  Kwong  equation  of  state  component  "i"  constant 

bottom  product  component  molar  flow  rate  (lb  moles/lb  mole 
feed) . 

distillate  rate  (lb  moles/lb  mole  feed), 
distillate  product  component  molar  flow  rate, 
feed  rate  (1  lb  mole  basis). 

fugacity  of  component  "l"  in  the  liquid  phase, 
liquid  fugacity  of  pure  component  "i". 
component  molar  feed  rate. 

fugacity  of  component  "i"  in  the  vapour  phase. 

vapour  fraction  in  the  feed  when  a  partially  vapourized 
feed  is  considered. 

feed  molar  enthalpy. 

molar  enthalpy  of  the  vapour  entering  the  stage  above  the 
feed,, 

partial  molar  liquid  enthalpy  of  component  "i"  in  ideal 
liquid  solution. 

component  molar  enthalpy  of  component  "i"  as  an  ideal  gas. 

partial  molar  component  enthalpy  of  the  liquid  leaving 
stage  "n". 


' 


. 


. 


-117- 


K 


i,n 


1 . 
i,n 


N 


Nm 

P 


P, 

1 

PR 

Qc 

% 


Qr 

R 

Rm 

Ro 

R* 

S. 


molar  enthalpy  of  a  vapour  stream, 
molar  enthalpy  of  a  liquid  stream, 
equilibrium  K-ratio  of  component  "i"  at  stage  "n", 
total  liquid  entering  the  feed  stage. 

liquid  component  molar  flow  rate  entering  the  feed  stage. 

component  molar  flow  rate  in  the  liquid  phase  of  a 
partially  vapourized  feed. 

liquid  component  molar  flow  rate 'leaving  stage  "n". 
liquid  flow  rate  having  stage  "n", 

number  of  theoretical  stages  in  the  distillation  column, 
feed  stage. 

minimum  number  of  theoretical  stages, 
column  pressure  (psia.) 
critical  pressure  (psia.) 

* 

partial  pressure  of  pure  component  "i"  (psia.) 
reduced  pressure 

condenser  heat  load  (BTU/lb  mole  feed). 

stage  heat-  leak  (assumed  =  0  for  the  distillation  column 
model) . 

reboiler  heat  load  (BTU/lb  mole  feed) 

reflux  ratio. 

minimum  reflux  ratio. 

operating  reflux  ratio. 

universal  gas  constant 

stripping  factor. 

critical  temperature  (®R) . 
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n 


if 


v„ 

i.n 

V  * 

i 

V. 


V 


n 


if 

x.. 

i,n 

yi,n 


a.. 

1 


5. 

l 


m 


AE 


AF  . 

i 


m 


AH.. 

l 

AS 


m 


m 


stage  temperature  (°R) „ 
reduced  temperature. 

vapour  component  molar  flow  rate  entering  the  stage  above 
the  feed. 

component  molar  flow  rate  in  the  vapour  phase  of  a 
partially  vapourized  feed. 

vapour  component  molar  flow  rate  at  stage  "n"„ 
molar  volume  of  component  "i". 

vapour  flow  rate  entering  the  stage  above  the  feed. 

vapour  flow  rate  at  stage  "n" 

overall  feed  compositions  (mole  fraction). 

liquid  stage  composition  (mole  fraction). 

vapour  stage  composition  (mole  fraction). 

compressibility  factor, 

relative  volatility  of  component  "i". 

liquid  activity  coefficient  of  component  "i". 

differential  operator. 

In¬ 
solubility  parameter  of  component  "i"  (cal/inl)  - 

weighted  average  solubility  parameter  defined  by  equation 
(3, 6-10) . 

energy  of  vaporization,  (cal/gm  mole). 

excess  partial  molal  free  energy  of  mixing  for  component 
"i"  (cal/gm  mole) . 

partial  molal  heat  of  mixing  for  component  "i"  (cal/gm  mole) 

excess  partial  molar  entropy  of  mixing  for  component  "i" 
(cal/gm  mole  ° K) . 

theta  root  of  the  Underwood  equations. 


' 


« 


‘ri ■  ■  t  •  ■ 


-119- 


theta  convergence. 

latent  heat  of  vapourization  for  component  "i" 

(eal/gm  mole) . 

component  liquid  fugacity  coefficient 
summation 

vapour  fugacity  coefficient 

slope  of  In  (K^  vs .  as  defined  by  equation  3.3-14. 

ratio  of  the  dew  point  to  the  bubble  point  as  defined  in 
equations  3 . 3-11  and  3=3-12. 

acentric  factor  for  component  "i", 

Subscripts 

assumed  value . 
bottoms  o 

number  of  components 

calculated  value. 

corrected  value. 

distillate. 

feed  stage. 

heavy  key  component. 

component . 

light  key  component 

stage  number  in  the  stripping  section  of  the  column, 
stage  number. 

column  reflux  liquid  stream 
calculated  at.  temperature. 
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Description  Of  Contents 

Tlie  design  of  stabilizers  by  the  trial  and  error  method,  using 
the  rigorous  Thiele -Geddes  or  modified  Bergamini's  Calculational  procedure, 
requires  some  knowledge  of  the  trends  in  column  behavious  due  to  changes 
of  the  independent  variables.  Five  independent  variables,  (i)  the  number 
of  theoretical  stages,  ( ii )  the  feed  stage  location,  (iii)  the  reflux  ratio, 
(iv)  the  distillate  rate  and  (v)  the  column  pressure,  were  studied  for 
example  problem  7(t>)*  The  results  obtained  are  tabulated  in  this  appendix. 
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COMPARISON  OF  CHAO-StADER  K-RATIOS  VS  EXPERIMENTAL  DEW  POINT  GRAYSON  STREED  CONSTANTS 
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COMPARISON  OF  CHAO-SEADER  K-RATIOS  VS  EXPERIMENTAL  BUB  POINT  GRAYSON  STREEO  CONSTANTS 
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COMPARISON  OF  CHAO-SEADER  K-RATIOS  VS  EXPERIMENTAL  DEW  POINT  CHAO-SEADER  CONSTANTS 
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(ill-  l)  Chao-Seader  coefficients  for  the  component  liquid  fugacity  coef¬ 
ficient  equations. 

(;  i-Il)  Grayson  Streed  coefficients  for  the  component  liquid  fugacity 
coefficient  equations. 


(ill- III)  Coefficients  for  the  component  liquid  fugacity  coefficient  equa¬ 
tions  for  Hg HpS  and  CO2  developed  by  J.  H.  Erber  and  W.  C. 
Edmister. 


(ill- IV )  Chao-Seader  data  from  Erbar,  for  the  components  in  the  problems 

considered. 
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Erbar ■ s  Modification  Of  Cavett  *  s  Correlation  For  Hypothetical  Components 


It  is  desirable  to  predict  the  vapour  liquid  equilibrium  data 
for  complex  hydrocarbon  fractions,  as  these  are  usually  encountered  in 
stabilizer  feeds .  These  complex  hydrocarbon  fractions  can  be  handled 
by  breaking  them  down  into  a  series  of  hypothetical  components..  A  cor¬ 
relation  proposed  by  Cavett  predicts  the  Chao-Seader  Correlation  data 
for  these  hypothetical  components. 

The  minimum  amount  of  information  required  for  the  use  of 
Cavett ®s  method,  as  modified  by  Erbar,  is;  either  the  molal  average 
boiling  point  or  the  mean  boiling  point  of  the  fraction,  its  API  gravity 
and  molecular  weight.  If  the  critical  temperatures  and  pressures  are 
known  they  can  be  also  specified. 

An  outline  of  the  procedure  is  as  follows: 

(a)  If  the  mean  boiling  point  is  not  specified  it  is  calculated  from 
the  molal  average  boiling  point  and  the  cubic  average  boiling 
point . 

®-^ca+^mla 

BPmn= _ _ 

2.0 

(b)  The  specific  gravity  at  60°F  is  calculated  by: 

Specific  Gravity  =  l4l.5 

131 . 5+uAPi 
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The  density  at  25°C  is:  d25  =  O.98907  x  S.G.  @  60°F 
(c)  The  liquid  racial  volume  at  25°C  is  calculated  hy: 

V?  =  molecular  weight 

(a)  The  Pseudo  critical  temperature  and  pressure  for  the  hypothetical 

components  can  be  calculated  from  the  following  equations : 

lc  =  aq  +  a2!T  +  a^T^  +  +  a^AT  +  a^AT^  +  ayA^2 

log10(Pc)  *  bq  +  boT  +  b3T2  +  bl^T3  +  bcjAT  +  b^AT2  +  b<jA%-  +  bgA2!2 

(c)  The  acentric  factor  W  is  calculated  form  Edmister's  equation: 

Wi  =  (3/7)  (logPc/l^.7)  -  1.0 
(WTc)-l) 

(f)  The  latent  heat  of  vaporization  is  obtained  from  Kistiakowsky * s  equa¬ 
tion  (ii) 

AEV  =  7-58  +  4.571  logTb 
Tb 

Tq  =  mean  average  boiling  point 
and  adjusted  to  25°C  by  means  of  Watson's  equation  (ii) 

Ahv25°c  =  (Tc  -  537)°' 3,3 

(AHv)l]BP  (Tc  -  Tb  ) 

The  solubility  parameter  is  then  calculated  from  the  following  equa¬ 
tion: 

Sq  =  (AH  -  R*T  )i 


Yf 


1 


(g)  The  constants  for  the  ideal  gas  state  enthalpy  equation, (a  cubic 
equation)  are  calculated  from  the  following  equations:  U^1) 

HA  =  MW  (Cq  +  C2A  +  C3A2  +  C1^a3  +  CcjK  +  C5K2  +  C-fK3  +  Cq^AK) 

HB  =  MW  (C8  +  C^A  +  C10A2  +  CqqA3  +  u12K  +  C13K2  +  ClkK3) 

HC  =  MW  (Cq5  +  CqgA) 

HD  =  MW  (Cq j  +  Cq$A) 


III-4 
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Nomenclature 


a 

-  equation  constants . 

A 

*  equation  constants. 

b 

-  equation  constants . 

BPca 

-  cubic  average  boiling  point. 

^mla 

*  molar  average  boiling  point. 

BPmn 

*  mean  average  boiling  point. 

c 

-  equation  constants. 

d 

-  density. 

HA,  HB,  HC,  HD  - 

■  ideal  gas  enthalpy  equation  constants 

?c 

-  critical  pressure. 

R* 

-  gas  constant. 

T 

-  temperature. 

lb 

-  normal  boiling  point. 

Pc 

-  critical  temperature . 

Vi* 

-  molar  volume. 

Si 

-  solubility  parameter. 

AB.v 

-  molar  heat  of  vaporization. 

W± 

-  acentric  factor 

-  acentric  factor 
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Rigorous  Computer  Programs 


Ihiele-Gedd.es 


Mainline 


I 


$ib:ftc  column 

(Thiele -Geddes 
,  Program) 


Modified  Bergamini ?  s  Procedure 

$IBFTC  COLUMN 
(Bergamini  Program) 


$IBFTC 


^  Ampin 


!  FEED 
DISTIL 
PHYS 


FLASH 

KVAL 

K1VAL 

HVAL 

Subroutines  <  DEV7PT 

BUBPT 

CFLOWR 

COMP 

TEMP 

THETA 


VLTEST 

VPILQp* 

(vPLqp)* 

^AOUTPT 


$IBFTC 

BINPUT 

FEED 

DISTIL 

BPHYS 
FLASH 
KVAL 
K1VAL 
HVAL 
\  DEWPT 
1  BUB.PT 


THETA 

PSY 

CTEMP 

VLTEST 


BOUTPT 

L. 


*  Either  VPLQP  (bottom  up  enthalpy  balances)  or  VP1LQP  (enthalpy  balances 
from  both  ends)  subroutine  can  be  used  but  not  both.  VP1LQP  is  suggested 
as  it  is  succeptible  to  a  smaller  roundoff  error. 


, 


- 


SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


08; 


N 


III-7 


0  MBFTC  COLUMN  NUOfcCK 

C**************************************** ******************************* 

c 

c  THE  THIELE-GEDDES  RIGOROUS  MULTICOMPONENT  COLUMN  CALCULATING 

C  PROCEEOURE  INCLUDING  THE  CHAG-SEADER  CORRELATION  K-RAT10  AND 

C  ENTHALPY  DATA  CALCULATIONS  ARE  PROGRAMMED  IN  THIS  PROGRAM. 

C  THIS  PROGRAM  IS  GENERAL  FOR  A  SINGLE  FEED  AND  WILL  HANDLE  EITHER 

C  A  PARTIAL  UR  A  TOTAL  CONDENSER.  SOME  OF  THE  NECESSARY  CONVERGENCE 

C  FEATURES  AND  RESTRICTIONS  ARE  = 

C  THETA  CONVERGENCE  METHOD 

C  ALLOW  EXTREME  VARIATION  OF  10  PERCENT  FOR  L-V  PROFILES 

C  AVER  AGEING  TEMP  AND  L I QU I D- VAPOUR  PROFILES  AS  CONVERGENCE  FORCEING 
C  10  DEG.  MAX  VARIATION  IN  T-PROFILE  IS  ALLOWED  BEFORE  L-V  CORRECTIONS 
C  ARE  ATTEMPTED 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*  *  *******  K  *  K**  **********  ******  *************************************** 


*  *  *  *  * *****************  PROGRAM  VARIABLES  ******************************* 

***  IMPORTANT  VARIABLES  IN  B ERG AM  1 N 1  AND  THIELE  GEDOES  PROGRAMS  ******** 
***********  DUMMY  AND  LESSER  VARIABLES  ARE  NOT  LISTED  ****************** 


A  (  *  ,  *  ) 

A  A  {  *  t  *  ) 

A  A  0  B  (  *  ) 

A  B  F  (  *  ,  *  ) 

A  K  (  *  ,  *  ) 

A  L  I  0  (  *  ) 

A  L  I Q  0  (  *  ) 
ALP (* ) 
ALP1  ( * ) 
ARK ( *  } 

A  S  F  (  *  ,  *  ) 

A  V  P  (  *  ) 

A  V  P  l  (  *  ) 
AVX 
A  V  X 

BBMIX ( *  ) 

B  I  (  *  ) 

B ID  I ( * ) 
BMLA 
BUT 
B  P  M  N  A 
BPCA 
BRK  (  *  ) 

BX I ( *  ) 

CT  (  *  ) 
GDELMX ( *  ) 
DE  L  T  A ( *  ) 
DFRAC 
Oil*) 

DI  ST 

DOC 

DOR 

DX  I  { *  ) 

FRAC 


CONSTANTS  FOR  CHAO  SEADER  LIQ  FUGACITY  COEFF  EQUATIONS 
IDEAL  GAS  ENTHALPY  EQUATION  COEFFICIENTS 
A* *2 /B  CONSTANT  FOR  THE  REDL I CH-KWONG  EQN  OF  STATE 
ABSORPTION  FACTOR  (  TH I ELE-GEDDES  ) 

STAGE  COMPONENT  K  RATIO 

STAGE  COMP  LIQ  MOL  RATE/PROD  OR  BOT  RATE  (THIELE-GEDDES) 
COMP  LIQ  MOL  RATE/CUNDEN  PROD  MOL  RATE  ( TH I ELE-GEDDES ) 
LIQUID  FLOW  KATE  FROM  PLATE  PER  MOLE  OF  FEED 
STORED  L IQUID  PROFILE 

REDL I  CM  KWONG  COMPONENT  MOLECULAR  INTERACTION  CONSTANTS 
STRIPPING  FACTOR  THIELE  GEDDES  METHOD  ONLY 
VAPOUR  FLOW  RATE  FROM  PLATE  PER  MOLE  FEED 
STORED  VAPOUR  PROFILE 

VAPOUR  RATE  LEAVING  THE  FEED  STAGE  (THIELE  GEDDES) 

VAPOUR  RATE  ABOVE  PEED  STAGE  (BERGAMINI) 

B  CONSTANT  FOR  REDLICH  KWONG  EQN  OF  STATE  AT  A  STAGE 

BOTTOMS  COMPONENT  MOLAR  FLOW  RATE 

RATIO  BOT  COMP  FLOW  RATE/TOP  COMP  FLOW  RATE 

MOLAR  AVERAGE  BOILING  POINT  DEGREES  F 

BOTTOM  MOLAR  FLOW  RATE  PER  MOLE  OF  FEED 

WEIGHT  MEAN  AVERAGE  BOILING  POINT  DEGREES  F 

CUBIC  AVERAGE  BOILING  POINT  DEGREES  F 

REDLICH  KWONG  CRITICAL  VOLUME  INTERACTION  CONSTANTS 

BOTTOMS  COMPOSITION 

CRITICAL  TEMPERATURE  0E6REES  K 

WEIGHTED  AVERAGE  UF  COMPONENT  SOLUBILITY  PARAMETERS 

SOLUBILITY  PARAMETER  { CAL/ML ) *  *0. 5 

FRACTION  LIQUID  IN  CONDENSER 

TOP  PRODUCT  COMPONENT  MOLAR  FLOW  RATE 

TOTAL  PRODUCT  FLOW  KATE  PER  MOLE  OF  FEED 

CONDENSER  HEAT  LUAD  PER  MOLE  OF  FEED 

REBOILEK  HEAT  LOAD  PER  MOLE  FEED 

TOP  PRODUCT  COMPOSITION 

CALCULATED  MOLE  FRACTION  LIQUID  IN  FEED 
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FRC 
FX  (  *  ) 

GAM ( * ) 

GTHT 

GTHTP 

HD  V 

HL  IQ 

HVAP 

I 

L  (  *  ,  *  ) 

L  0  I  *  ) 

L  X  (  *  ) 

N 

NC 

NCP 

NFP 

NHC 

NT  P 

P 

PCI*) 

PR 

P  S  I  (  *  ,  *  ) 

REFXR 
SHB  I 
SHDI 
SUFI 
SHL ( * ) 
SHV ( *  ) 

T  {  *  ) 

T  A  (  *  ) 

T  C  (  *  ) 

TO 
T  F 

THETL 

TR 

TT  (*  ) 

T  W 

V  (  *  ) 

V  A  P  ( -*  ) 

V  A  P  L  (  *  ) 
VI  (  *) 

W  (  *  ) 

X  (  *  ,  *  ) 

XU  (  *  ) 

X  F  I  {  *  ) 
XMT( *, * ) 
XR 

XXWM 

Y( ***  ) 
YD(  *  ) 

V  F  I  (  *  ) 

ZZ  (  *  ) 


READ  IN  MULE  TRACI  I  ON  LIQUID  IN  FEED 

OVERALL  FEEO  COMPOSITION 

LIQUID  COMPONENT  ACTIVITY  COEFFICIENT 

D-D  SPEC  FUNCTION  FOR  THETA  CONVERGENCE 

DERIVATIVE  OF  D-D  SPEC  FUNCTION  FOR  THETA  CONVERGENCE 

OVERHEAD  VAPOUR  ENTHALPY  PER  MOLE  FEED 

LIQUID  ENTHALPY  ( DUMMY  VARIABLE) 

VAPOUR  ENTHALPY  (DUMMY  VARIABLE) 

USUALLY  REFERS  TO  COMPONENT  NUMBER 

PLATE  COMPONENT  MOLAR  LIQ  FLOW  RATES  { BERG AMI N I ) 

COMPONENT  LIQ  MOLAR  FLOW  RATE  FROM  CONDENSER  ( BERGAM INI) 

LIQ  COMP  FLOW  RATE  FROM  PLATE  ABOVE  FEED  ( BERGAM INI ) 

USUALLY  REFERS  TO  PLATE  NUMBER 

NUMBER  OF  REAL  COMPONENTS 

TOTAL  NUMBER  OF  COMPONENTS  REAL  PLUS  HYPOTHETICAL 
PLED  STAGE  NUMBER 

NUMBER  OF  HYPOTHETICAL  COMPONENT S 
NUMBER  OF  THEORETICAL  STAGES 
COLUMN  PRESSURE 
CRITICAL  PRESSURE  P5IA 
REDUCED  PRESSURE 

SLOPE  OF  LOG  K  RATIO  VS  TEMP  ( BERG  AMI  Nil  ) 

REFLUX  RATIO 

MOLAR  ENTHALPY  OF  BOTTOMS 

MOLAR  ENTHALPY  OF  BOTH  CONDENSER  OUTLET  STREAMS 
FEED  ENTHALPY 

LIQUID  MOLAR  STAGE  ENTHALPIES  ( TH I ELE-GEDDES ) 

VAPOUR  MOLAR  STAGE  ENTHALPIES  ( TH I ELE-QEDDE S ) 

PLATE  TEMPERATURE 

ASSUMED  TEMPERATURE  (BERGAM INI ) 

CORRECTED  TEMPERATURE  ( BERGAMI N I ) 

CONDENSER  TEMPERATURE 
FEED  TEMPERATURE 

THETA  IN  THETA  CONVERGENCE  PROCEEDURE 
REDUCED  TEMPERATURE 
STORED  STAGE  TEMPERATURE  PROFILE 
BOTTOMS  TEMPERATURE 

VAPOUR  COMP  MOLAR  FLOW  RATE  (DUMMY  VAR  I  ALE )( BERGAMI N  I  ) 
COMPONENT  K  RATIO  (DUMMY  VARIABLE) 

LOG  COMPONENT  K-RATIO  (DUMMY  VARIABLE) 

MOLAR  VOLUME  OF  COMPONENT ( * )  IN  THE  LIQUID 

ACENTRIC  FACTOR 

STAGE  LIQUID  MOLE  FRACTIONS 

PARTIAL  CONDENSER  LIQUID  COMPOSITION 

FEED  LIQUID  COMPOSITION  (SPLIT  FEED) 

COMPONENT  NAME 

RATIO  OF  BUBBLE  POINT/  DEW  POINT 
HYPOTHETICAL  COMPONENT  MOLECULAR  WEIGHT 
STAGE  VAPOUR  MOLE  FRACTIONS 
PARTIAL  CONDENSER  VAPOUR  COMPOSITION 
PEED  VAPOUR  COMPOSITION  (SPLIT  FEED) 

COMPRESSIBILITY  FACTOR  FOR  VAPOUR  AT  A  STAGE 
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JAI  HYDROGEN  CHAG-SEADER  FUG AC  I T Y  EQUATION  CUNSTANTS 

JA2  METHANE  CHAQ-SEADER  FUG AC  I  TY  EQUATION  CONSTANTS 

J A3  NITROGEN  CHAO-SEADER  FUG AC  I  TY  EQUATION  CONSTANTS 

JA4  OXYGEN  CHAO-SEAOER  FUG AC  I TY  EQUATION  CUNSTANTS 

JA5  CARBUN  MONOXIDE  CHAO-SEAOER  FUGACITY  EQUATION  CONSTANTS 

JA6  CARBON  DIOXIDE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

J  A  7  HYDROGEN  SULFIDE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JX  FEED  FLAG  (  i  =  S L , 2  =  S V , 3= SP L I T  FRC  C0Nt4=SPLIT  T  CON) 

JXX  CONDENSER  FLAG  {  1  =  TOT  A  L ,  2  =  PART IAL  CONDENSER) 

K  K  K  (  «•  5  IDEAL  K-RATIO  SUBROUTINE  FLAG 
KXN  COUNTER  IN  THE  MAIN  PROGRAM 

KXX  TEMP  PROFILE  FLAG  CONTROLLING  L-V  PROFLE  CALCULATIONS 


08 


******************  PROGRAM  ERROR  MESSAGES 


******* 


*  *  * 


***  ERROR  Oi  ***  MORE  THAN  THIRTY  TRIALS  REQUIRED  FOR  FLASH 
CALLED  FROM  FLASH  SUBROUTINE 

ABSISUM  MOLE  FRAC  IN  LIQ-SUM  MOLE  FRAC  IN  THE  VAP )  AND  OR 
ONE  OR  MORE  OF  THE  MOLE  FRACTIONS  IN  THE  LIQUID  PHASE 
DIFFERS  FROM  THE  ONE  PREVIOUSLY  CALC  BY  I. 06-04  AFTER  30 
TRIALS.  THE  LAST  VALUES  CALC  ARE  TAKEN. 

***  ERROR  02  ***  MURE  THAN  THIRTY  TRIALS  ARE  REQUIRED  FOR  Z  CONVER 
ENC  E 

CALLED  FROM  KVAL  SUBROUTINE 

COMPRESSIBILITY  FACTOR  Z  DIFFERS  FROM  THE  ONE  PREVIOUSLY 
CALCULATED  BY  MORE  THAN  I .GE-04  IN  ABSOLUTE  VALUE  AFTER 
THIRTY  TRIALS.  THE  LAST  CALCULATED  VALUE  IS  TAKEN. 

***  ERROR  03  ***  DEWPT  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  DEWPT  SUBROUTINE 

THE  ABSISUM  MOLE  FRACTION  IN  THE  LIQ-L.)  IS  GREATER  1.0E-04 
AND  OR  ONE  OR  MORE  OF  THE  COMPONENT  MOLE  FRACTIONS  DIFFER  FROM 
THE  PREVIOS  CALCULATION  BY  1.0E-04  AFTER  THIRTY  TRIALS 
THE  VALUES  FROM  THE  LAST  CALC  ARE  TAKEN. 

***  ERROR  04  ***  BUBPT  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  BUBPT  SUBROUTINE 

THE  ABSISUM  MOLE  FRACTION  IN  THE  VAP-1.)  IS  GREATER  l.Ofc-04 
AND  OR  ONE  UR  MORE  OF  THE  COMPONENT  MOLE  FRACTIONS  DIFFER  FROM 
THE  PREVIOS  CALCULATION  BY  I.0E-04  AFTLR  THIRTY  TRIALS 
THE  VALUES  FROM  THE  LAST  CALC  ARE  TAKEN. 

***  ERROR  03  ***  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED  FOR  DISTIL 
CALLED  FROM  SUBROUTINE  D I S T I L , P AR T I  A L  CONDENSER  CALCULATION 
ABSISUM  MOLE  FRAC  IN  LIQ-1.)  AND  OR  ONE  OR  MORE  OF  THE  MOLE 
FRAC  IN  THE  LIQ  DIFFERS  FROM  THE  PREVIOUS  CALC  BY  MORE  THAN 
i.OE-04  AFTER  30  TRIALS.  THE  LAST  CALC  VALUES  ARE  TAKEN. 

***  ERROR  06  ***  TEMP  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  SUBROUTINE  TEMP 

TEMPERATURE  CORRECTION  SUBROUTINE  IN  THE  THIELE  GEDDES  METHOD. 
THE  ABSI SUMY-1.  )  IS  GREATER  THAN  i.OE-04  IN  THE  BUBBLE  POINT 
THE  LAST  CALCULATED  TEMPERATURE  IS  TAKEN. 

***  ERROR  07  ***  SPECIFICATION  FOR  D  AND  THETA  NOT  MET  WITHIN  28 
TRIALS  OF  L-V  PROFILES 

THE  CALCULATIONS  HAVE  NOT  CONVERGED  TO  THE  SET  S PEC  I F I C A T I ONS 
CALLED  FROM  THE  MAIN  THIELE  GEDDES  OR  BERGAMIN  PROGRAMS 
AFTER  25  TRIALS  AT  CORRECTING  THE  LIQ-VAPOUR  PROFILE. 

THESE  ARE  (D-D  SPEC  )  .LE .  1 . 0E-04 ,  AB S ( THE T L - 1 . 0 ) . L E . 1 . OE-O 3 
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FORTRAN  SOURCE  LIST  COLUMN 

SOURCE  STATEMENT 

III-10 

THE  PRINT  GUT  IS  TAKEN  FROM  THE  LAST  CALCULATION 
***  ERROR  08  ***  SPECIFIED  TEMPERATURE  #***  F  ABOVE  DEW  POINT 
CALLED  FROM  FLASH  SUBROUTINE 

THE  TEMPERATURE  SPECIFIED  FOR  THE  CONSTANT  TEMPERATURE  FLASH 
IS  ABOVE  THE  FEED  DEW  POINT.  THE  FEED  IS  TAKEN  AS  VAP  FEED. 
*»*  ERROR  09  ***  SPECIFIED  TEMPERATURE  ****  F  BELOW  BUBBLE  POINT 
CALLED  FROM  FLASH  SUBROUTINE 

THE  TEMPERATURE  SPECIFIED  FOR  THE  CONSTANT  TEMPERATURE  FLASH 
IS  RELOW  THE  FEED  6UBLE  POINT.  THE  FEED  IS  TAKEN  AS  LIO  FEED 


DIMENSION  TT ( 50  )  , A VP  I  (50) ,DLOR (20 ) . YD (20) »XU< 20 ) , 

IBIDI  (  20  )  *  DI  (  20)  ,BI  (  20  )  ,XX  (20)  ,  YY(  20  )  ,  ALIQ0<20  )  ,  XFI  (20)  ,  YFH20) 

COM MON /ONE/  CT { 20 ) , PC ( 20 ) , W ( 20 ) , DELTA (20)  ,  VI  ( 20)  tVAP(20).A(16,6), 
I  A  A  0  B ( 51  ) , ZZ ( 51 )  f BBM  I  X ( 51  )  ,DDELMX ( 51 )  ,HLIQ,HVAP 
COMMON/ TWO/  X(51»20)tY(51t20) , P , NCP , NTP * NFP , BOT t D I  ST , AK { 5 1 , 20 ) 
COMMON/ THREE/ JX , J A 1 , J A2 , J A3 , J A4 , J A5 , J A6 , J A7 , J XX , FR AC  * FRC » AA ( 4 , 20 ) 
COMMON/ FOUR/  AVP( 50)  ,  ALP { 50 ) t T ( 50 ) 

COMMON/ F IV £/  REFXR,  BX  I  ( 20  )  , DX I  ( 20 )  , TO , TW , TF , FX ( 20 ) 

COMMON /SIX/  SHV(50) ,SHL(50) ,ALIQ(50T20) , ABF (50 ,20) ,ASF(50,20) 
DIMENSION  XMT ( 2 0  »  2 ) 

6  FORMAT  ( IX»6X,5EI3.6) 

I  7  FORMAT  (  1X,6X,E L3.6) 

INPUT  DATA  IS  READ  IN  AND  OR  CALCULATED 

CALL  A  INPUT  (NC,NHC*XMT) 

NCP-NC+NHC 

I F ( NCP.LE.NC)  GO  TO  130 
CALL  PHYS  ( NC  » XMT ) 

130  CONTINUE 
K  X  X=  1 
KX  1=  1 

BOT=  1  • 0-D 1ST 

CALCULATION  OF  ASSUMED  LINEAR  TEMPERATURE  PROFILE 
C  0  N  =  N  T  P 

DEL  =  ( TW-TD ) /CON 
T ( 1 )=TD+DEL 
DO  10  N  =  2  »  N T P 
10  T  (  N  )  —  T  (  N —  1  )  +DEL 

CALCULATION  OF  FEED  CONDI  T I  ON 

I F ( JX.EQ.4)  GO  TO  129 
TF=  T ( NFP  ) 

129  T X=  TF  +  459  •  6 

CALL  FEED  (  FX , FX , XE I , YF I , NTP  +  2 , SHF  I , XMT ) 

T  F  =  T X— 45  9 . 6 

wR I TE ( 6  »  17)  SHF  I 

CALCULAII ON  OF  ASSUMED  LINEAR  VAPOUR  AND  LIQUID  PROFILES 
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Oi 


SN 

4-4 

45 

46 

50 

51 

52 

53 

55 

56 

57 
50 

C 

c 

c 


III-ll 

00  8  N=1,M 

ALP ( N  )  =REFXR*DI ST 

8  AVP(N)=(REFXR+1 .  ) *D I S T 
M=NTP— t 

00  9  N -=  N F P  »  M 

ALP (N  )=ALP( NFP-i )+FRAC 

9  AVP(N)=AVP(NFP-L)-( L.-FRAC) 

A V  P { NT  P )  =  A  V  P ( NF  P- 1 ) - (  L.-FRAC) 

ALP ( NT  P )  =130T 
AVX=AVP( NFP ) 

AVP(NFP)=AVX+ L.-FRAC 

STORAGE  UF  V  AND  T  PROFILES  TO  CHECK  WITH  NEWLY  CALCULATED  ONES 


51 

DO  469  N=  1  , N TP 

52 

469 

AVP1(N)=AVP(N) 

54 

DO  415  N  =  1 , N  T  P 

65 

4  15 

TT ( N  )  =T ( N ) 

C 

c 

c 

c 

c 


CALCULATION  OF  MOLAR  LIQUID  COMP  FLOW  RATE/TOP  PRODUCT  COMP  FLOW 
RATE  RATIOS  FOR  THE  ABSORPTION  SECT  AND  MOLAR  LIQUID  COMP  FLOW 
RATE/BOTfOMS  MOLAR  COMP  FLOW  RATE  RATIOS  FOR  THE  STRIPPING  SECT 


57 

DO  501  N= 1 , NTP 

70 

TX=T(N 1+459.6 

71 

CALL  K1VAL  ( N, 1 X, 3) 

72 

DO  501  I  =  1 »  NC P 

73 

501 

AK ( Nf I  ) =  V AP {  I  ) 

76 

GO  TU  (60,61), J XX 

77 

6  1 

TX=  TD  +  459 . 6 

OO 

CALL  K1VAL(NTP+1»TX» 

3) 

01 

DO  62  1=1, NCP 

02 

62 

DL OR (  I  )  =  1 . / YAP (  I  ) 

04 

GO  TO  60 

05 

50 

continue 

06 

DU  200  N= 1 , NTP 

07 

T  X=  TIN) +459 • 6 

10 

CALL  KVAL  ( TX,N ) 

11 

DO  200  1=1, NCP 

12 

AK ( N,  I  )  =V AP {  I  ) 

13 

200 

CONTINUE 

16 

60 

GO  TO  ( 104, 105) , JXX 

17 

104 

DU  107  1=1, NCP 

20 

107 

A  L  T  Q  0 {  I )=REFXR 

22 

GO  TO  66 

23 

105 

DO  108  1=1, NCP 

24 

108 

AL I Q 0 (  I  )  =REFXR*  DLOR ( 

r ) 

26 

66 

CALL  CFLOWR  (ALIQO) 

C 

C 

c 

c 


FEED  PLATE  MISMATCH  INCORPORATING  THETA  METHOD  OF  CONVERGENlE 
SETS  THE  CORRECTION  FOR  THE  NEW  ITtRATIUN 


2  7 

30 

31 


SUM D 1=0. 

DO  L  09  1  =  1, MCP 

ALQl=AL I Q (  MFP,  I  )*( AK< NFP , I  ) *AVX/ALP( NFP)  ) +1.0 
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111*12 


GO  TO  (121,  L 22, 123, 123), JX 

121  Cl  =  I. 

C2  =  0. 

GO  TO  120 

122  C1=0. 

C2=1.0 

GO  TO  120 

123  C1=FRAC*XFI  (  I  )  / FX ( I  ) 

C2= ( l.-FRAC ) *YF  I  ( I ) /FX (  I  ) 

12C  Bini (I )=( ALIQINFP-1, I )+Cl )  / ( ALQI-1 .+C2 ) 

D  L (  I  )  =  FX  (  I  )/(  1.0+BIDI  (  I  )  ) 

109  SUMD I =SUMQ I +D I (  I  ) 

DEL 1=( DIST-SUMD I ) 

WRITE (6,17)  DELI 
CONVERGENCE  CRITERION 
I  F { K X M • L  E  .  2  )  GO  TO  15 

I F ( ABS ( DEL  1 ) .LE . 1 .0E-04. AND. A6S( 1. -THE T1 ) .LE.  1.0E-03 )  GO  TO  400 
15  CONTINUE 

THETA  CONVERGENCE 

CALL  THETA  { THFT 1 , F X , B I D I ) 

41  FORMAT ( IX ,6X, 18HTHETA  CON VERGE NCE= , F8 . 5 ) 

WRI  T E ( 6 , 4  1  )  THE  T  1 

SUMD 1=0. 

SUMB1=0. 

DO  113  1=1, NCR 

C  l  (  I  )  =  F X {  I  )  / {  1 . +THET 1»B  ID  I  (  I )  ) 

B]  (  I  )  =  THET  1  *•  B  I D  1  (  I  )*DI  (  I  ) 

SUMDI=SUMDI+DI { I ) 

113  SUMB1=SUMB I +BI (  I  ) 

DO  712  1  =  1 , NCP 
CX  1(1) =0  I  (  I  ) /SUMD I 
XX ( I ) =DX 1(1) 

712  B X  I  (  I  ) =  B  I  ( I  )  /SUMBI 

CALCULATING  NORMALIZED  PLATE  COMPOSITIONS 

CALL  COMP  ( D I , B I ) 

CALCULATION  OF  CONDENSER  CUMDITION 

TD=  TD  +  459 . 6 
T  (  1)0  (  1  ) +459.6 

CALL  DISTIL  (TD,XX  , SHD I , HD V , N TP+ 1 , VD , XD , REF XR , HDX , HDY , T ( 1 ) ) 
TD=T  D— 459 • 6 
T (  1  )= r (  1  )  — 459. 6 
DO  42  1=1, NCP 

42  DLOR (  I  )  =  XD (  I  )  / YD (  I ) 

WR  I  TE ( 6,  17 )  HDV 
WRITE(6,  17)  SHD I 
WRITE  (6,17)  TD 

BUBBLE  POINT  CALCULATION  TO  CORRECT  TEMPERATURE  PROFILE 

DO  309  N=  1  ,  N  T P 
TX=T(N)+459.6 
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SOURCE  STATEMENT 

CALL  TEMP  (TX,N) 
309  T(N)=TX-459.6 


FORTRAN  SOURCE  LIST  COLUMN 
111-1.° 


C 

c 

c 


CHECK  TEMP  PROFILE  TO  DECIDE  IE  L-V  CORRECTIONS  ARE  TO  BE  MADE 


21 

K  X  X  =  0 

22 

DO  All  N  =  1 ,  FTP 

23 

IF( ABS(TT(N)-T(N) )  •  L  E 

26 

K  XX  =  l 

27 

All 

CUNTINUE 

31 

DO  A  12  N= 1 , NTP 

32 

T(N)  =  (T(N)+TT(N)  )/2.0 

33 

A  1  2 

T  T  (  N  )  =  T  (  N  ) 

36 

I F ( KXX.EQ. 1 )  GO  TO  5G 

C 

c 


r 


ENTHALPY  BALANCES  ARE  USED  TO  CALCULATE  NEW  VAPOUR-LIQ  PROFILES 
CONDENSER  AND  REBOILER  HEAT  LOADS  ARE  CALCULATED 


40 

DO  117  N=  i  , NTP 

41 

TX=T ( N  )  +  A 5 9 . 6 

42 

DO  900  1=1, NCP 

43 

900 

XX (  I  )  =  X ( N ,  I  ) 

46 

CALL  HVAL  (TX  ,YY,XX,2,N) 

46 

SHL ( N)=HL IQ 

47 

DC  901  1=1, NCP 

50 

901 

YY (  I  )  =  Y ( N  » I ) 

52 

CALL  HVAL  (TX  ,YY,XX,1,N) 

53 

SHV ( N ) =  H  V  A  P 

54 

1  1  7 

CONTINUE 

56 

CALL  HVAL  ( TF+459 . 6 , YF I , X X , 1 , NTP +2 ) 

57 

H  H  =  H  V  A  P 

50 

WR I TE( 6, 17 )  HH 

51 

DO  915  1=1, NCP 

52 

915 

YY (  I  )=Y ( NFP , I  ) 

54 

CALL  HVAL  ( T ( NFP  ) +459 . 6 , Y Y  ,XX,1,NFP) 

)5 

HHH=HV AP 

>6 

WR I TE ( 6 , 1 7 )  HHH 

>7 

SHV ( NFP)  =  (  (  1  .-FRAC) *HH  +  HHH*AVX  )/ ( l.-FRAC  +  AVX ) 

ro 

DQC  = ( HDV— SHD I ) * D I ST * ( REFXR+ 1 . ) 

n 

GO  TO  ( 3 0 , 3 1 ) , J X X 

r2 

30 

DX  D  =  SHO I 

(3 

GO  TO  32 

Ia 

3  1 

DXD=HDY 

15 

32 

DQR  =  DXD  *DI ST+SHL (NTP )  *ttO T-SHF  I +  DQC 

fb  W  R  I  T  E  (  6 ,  17)  DOC 

H  WRITE (6, 17)  DQR 

)0  CALL  VPLQP ( DOC, DQR, SHDI , SHF  I , AVP1 ,HOX, HDY ) 

O  AVX=AVP( NFP )-l. O+FRAC 

>2  WR  I  TE  (  6,  14  ) 

|>3  14  FORMAT { IX, 20X,23HNEW  TEMPERATURE  PROFILE) 

K  WRITE (6, 6)  (TIN)  , N= 1 , NTP ) 

1  WR  I  TE ( 6,  16 ) 

12  16  FORMAT ( 1X,20X, 18HNEW  VAPOUR  PROFILE) 

1 3  WRITE (6, 6)  ( AVP ( N ) , N= 1 »  NTP ) 

lo  3  61  FORMAT  (1X,16H***  ERROR  07  ***,71 H SPECIFICATIONS  FOR  D  AND  THETA  N 


I 

r*. 


• 

( 

i  ■  .  it:  ■■  .  1  v  -  1  *  i 

i  i  ■  i  ( .  .i  .  .  (  ( 

)  T-  (  MI 

)  • 

<  1 

- 

1 

.  .  \  ( 

II  ,M  ) 

)  - 

{ 

)  : 

(  ) 

) 

X 

1  i  . 

.  >  x 

1 1 

til  1  '■  I  .!  —  >  '  '  ..  T  •  i  1 

i 

•;  I  i  -  1  ■  ■  J  J  ; 

J 

1  l  =  ^  ^  1  i  ' 

_ 


l  t  >  X  =  (  I  )  >  1  •  .  ^ 

(  f  .  •  ,  y  y  ,  /  i  )  v  '  .  i  i  . 

_ _ ...  1  JM  (  )  1  Id 

'  .1-1  10 

(it  )  y - ( I  )  y y  i do 

j ; I  s 

l  ) 

T  .  \  1  i 


c  . 

+  ‘  ?  tit 

f 

I  i  Y  , 

.  *  ^  : 

i  i 

j  j/. 

H--,r 

* 

) 

( 

t  i 

k 

1 1  )  v  v 

eie 

(  1  !; 

tit  f 

i  t 

*  ■) 

M  i  M 

)  i 

J  J  A  J 

(  i 

?  n 

) 

(  X  w  A  +  3  /  !  -  .  J 

)  \  {  X  V  ’  * 

HH  1 

+  •  '  M 

1-  .  1 

)  )  - 

(  m 

)  ,  •  i  a 

(.it- 

1 

'  i 

.  -  (  ; 

( . 

■  i 

)  =  .  j 

/  i  »  (  i 

t 

r  iJcD 

i 

=  -  vC; 

Oc 

T 

•  '  r 

’ 

i  ■'=  > 

l  1 . 

DO 

+ 1  1  - 

«  {  1  1 

i  i  '+  i 

i 

; 

t 

» 

T  I 

(  ■  i- 1 .  •. 

i  M  V  A  ,  1  1 

9 

, 

» 

)  M  .) 

J  JAD 

'+  .  1  -  ( 

«  i 

{  A  1 

i 

j 

(  i  >  I  '( 

•  .  •  '(  A 

T 

t 

t  ■ 

M 

( 

i  »  I  = 

M  )  :  ) 

(  ' 

t 

i 

(  i 

f 

(  J 

/  V  V 

'  1  , 

t 

) 

0  1 

( 

t  :  -  t 

(  1  <  1 

( 

f 

i 

T 

i  j  r 

1  ijVlc 

1  \  t  *  *  * 

:  -X  x 

f  X  i 

) 

i 

Ur 


SN 


FORTRAN  SOURCE  LIST  COLUMN  0 

SOURCE  STATEMENT 

I II -14 

1 0 T  MET  VvITHlN  25  TRIALS  OF  L-V  PROFILES  ) 

IF ( KXN.LF .25 )  GO  TO  '350 
WR I TE( 6, 351  ) 

GO  TO  400 
350  CONTINUE 
KXN=KXN+ 1 
GO  TO  50 

PRINT  OUT  OF  THIELE  GEODES  CALCULATIONS 
400  CONTINUE 

A  V  P { NFP ) =AVP( NFP )-l . +FKAC 
CALL  A0UTP1  (l)QC*DQR,XMT  ) 

CALL  EXIT 
END 
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O  SIBFTC  COLUMN  NODECK 

q************ ********  *********************** 

C 

THE  BE R GAMIN  I  RIGOROUS  MULTICOMPONENT  COLUMN  CALCULATING 
P ROC EE DURE  INCLUDING  THE  CHAG-SEADER  CORRELATION  K-RATIO  AND 
ENTHALPY  DATA  CALCULATIONS  ARE  PROGRAMMED  IN  THIS  PROGRAM. 

THIS  PROGRAM  IS  GENERAL  FOR  A  SINGLE  FEED  AND  WILL  HANDLE  EITHER 
A  PARTIAL  UR  A  TOTAL  CONDENSER.  SOME  OF  THE  NECESSARY  CONVERGENCE 
FEATURES  AND  RESTRICTIONS  ARc= 

I  HE  T A  CONVERGENCE  METHOD 

ALLOW  EXTREME  VARIATION  OF  10  PERCENT  FOR  L-V  PROFILES 
AVERAGE ING  TEMP  AND  L I QU I D- V APOUR  PROFILES  AS  CONVERGENCE  FORCE ING 
LO  DEG.  MAX  VARIATION  IN  T-PRGF I L E  IS  ALLOWED  BEFORE  L-V  CORRECTIONS 
ARE  ATTEMPTED 
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c* 
c* 
c  * 


********  ******  ******************************************************* 

*********************  PROGRAM  VARIABLES  ******************************* 
**  IMPORTANT  VARIABLES  IN  GERGAM I N I  AND  THIELE  GEODES  PROGRAMS  ******** 
**********  DUMMY  AND  LESSER  VARIABLES  ARE  NOT  LISTED  ****************** 

CONSTANTS  FOR  CHAO  SEADER  LIQ  FUGACITY  COEFF  EQUATIONS 
IDEAL  GAS  ENTHALPY  EQUATION  COEFFICIENTS 
A  *  *2 / B  CONSTANT  FOR  THE  REDL I CH-KwONG  EQN  OF  STATE 
ABSORPTION  FACTOR  {  TH I ELE-GEODES  ) 

STAGE  COMPONENT  K  RATIO 

STAGE  COMP  LIQ  MOL  RATE/PROD  OR  8QT  RATE  ( T  H IELE-GEDDES ) 
COMP  LIQ  MOL  RATE/CONDEN  PROD  MOL  RATE  ( TH I E LE-GEDD E S ) 
LIQUID  FLOW  RATE  FROM  PLATE  PER  MOLE  OF  FEED 
STORED  LIQUID  PROFILE 

REDL 1 CH  KWONG  COMPONENT  MOLECULAR  INTERACTION  CONSTANTS 
STRIPPING  FACTOR  THIELE  Gt DDE  S  METHOD  ONLY 
VAPOUR  FLOW  RATE  FROM  PLATE  PER  MOLE  FEED 
STORED  VAPOUR  PROFILE 

VAPOUR  RATE  LEAVING  THE  FEED  STAGE  (THIELE  GEODES) 

VAPOUR  RATE  ABOVE  FEED  STAGE  ( BERG AMI N I ) 

B  CONSTANT  FOR  REDL I CH  KWONG  EQN  OF  STATE  AT  A  STAGE 
BOTTOMS  COMPONENT  MOLAR  FLOW  RATE 
RATIO  BOT  COMP  FLOW  RATE/IOP  COMP  FLOW  RATE 
MOLAR  AVERAGE  BOILING  POINT  DEGREES  F 
BOTTOM  MOLAR  FLOW  RATE  PER  MOLE  OF  FEED 
WEIGHT  MEAN  AVERAGE  BOILING  POINT  DEGREES  F 
CUBIC  AVERAGE  BOILING  POINT  DEGREES  F 
REDL I CH  KWONG  CRITICAL  VOLUME  INTERACTION  CONSTANTS 
BOTTOMS  COMPOSITION 
CRITICAL  TEMPERATURE  DEGREES  K 

WEIGHTED  AVERAGE  OF  COMPONENT  SOLUBILITY  PARAMETERS 
SOLUBILITY  PARAMETER  ( C A L / ML ) * *0 . 5 
FRACTION  LIQUID  IN  CONDENSER 
TOP  PRODUCT  COMPONENT  MOLAR  FLOw  RATE 
TOTAL  PRODUCT  FLOw  RATE  PER  MOLE  OF  FEED 
CONDENSER  HEAT  LOAD  PER  MOLE  OF  FEED 
KEROILER  HEAT  LOAD  PER  MOLE  FEED 
TOP  PRODUCT  COMPOSITION 

CALCULATED  MOLE  FRACTION  LIQUID  IN  FEFD 
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A  A  (  *  t  *  ) 
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A  AOB ( * ) 

c 

ABF ( #, * ) 

c 

AK ( *  »  * ) 

c 

AL  1 0 ( *) 

c 

AL I  GO ( *  ) 

c 

ALP ( * ) 

c 

ALPI  ( * ) 

c 

ARK { *  ) 

c 

A SF ( *  ,  *  ) 

c 

A  VP ( *  ) 

c 

A  V  P  1  (  *  ) 

c 

A  VX 

c 

A  V  X 

c 

BBMIX ( * ) 

c 

B  I  (  *  ) 

c 

B  ID  I  (  *  ) 

c 

BMLA 

c 

BOT 

c 

BPMNA 

c 

B  PC  A 

c 

BRK ( * ) 

c 

BX  I  ( * ) 

c 

C  T  (  *  ) 

c 

DDELMX ( * 

c 

DELTA ( *  ) 

c 

DFRAC 

c 

D  I  (  *  ) 

C 

DIST 

c 

DQC 

c 

DQR 
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DX  I  ( * ) 
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FRAC 
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FRC 
F  X  (  *  ) 

GAM { * ) 

GTHT 

GTHTP 

HD  V 

HL  IQ 

HVAP 

I 

L  (  *  t  *  ) 
LO{  *  ) 

L  X  {  *  ) 

N 

NC 

NCP 

NFP 

NHC 

NT  P 

P 

PC  (  *  ) 

PR 

PS  I  ( * ♦*  ) 
REFXR 
SHB  I 
S HD  I 
SHF  I 
SHL ( * ) 
SHV ( * ) 

T  (  *  ) 

TA(*  ) 

T  C  (  *  ) 

TO 

TF 

THE  T  1 
TR 

TT  (  *  ) 

TW 

Y  (  *  ) 

VAP ( * ) 

V APL  (  *  ) 
VI  (  *  ) 

W  (  *  ) 

X  (  *  ,  *  ) 

XD  (  *  ) 

X  F  I  {  *  ) 

X  M  T  (  *  ,  *  ) 
XR 

XX  WM 

Y  (  *  t  *  ) 

Y  l)  (  *  ) 

YF  I  ( *  ) 

ZZ  (  *) 


READ  IN  MOLE  FRACTIGN  LIQUID  IN  FEED 

OVERALL  FEED  COMPOSITION 

LIQUID  COMPONENT  ACTIVITY  COEFFICIENT 

D-D  SPEC  FUNCTION  FOR  THETA  CONVERGENCE 

DERIVATIVE  OF  D-D  SPEC  FUNCTION  FOR  THETA  CONVERGENCE 

OVERHEAD  VAPOUR  ENTHALPY  PER  MOLE  FEED 

LIQUID  ENTHALPY  (DUMMY  VARIABLE) 

VAPOUR  ENTHALPY  (DUMMY  VARIABLE) 

USUALLY  REFERS  TO  COMPONENT  NUMBER 

PLATE  COMPONENT  MOLAR  LIQ  FLOW  RATES  ( BERG AM  I N I ) 

COMPONENT  LIQ  MOLAR  FLOW  RATE  FROM  CONDENSER  ( 3ERGAMI N I ) 

LIC  COMP  FLOW  RATE  FROM  PLATE  ABOVE  FEED  (BERGAMINI) 

USUALLY  REFERS  TO  PLATE  NUMBER 

NUMBER  OF  RtAL  COMPONENTS 

TOTAL  NUMBER  OF  COMPONENTS  REAL  PLUS  HYPOTHETICAL 
FEED  STAGE  NUMBER 

NUMBER  OF  HYPOTHETICAL  COMPONENTS 
NUMBER  OF  THEORETICAL  STAGES 
COLUMN  PRESSURE 
CRITICAL  PRESSURE  PSIA 
REDUCED  PRESSURE 

SLOPE  OF  LOG  K  RATIO  VS  TEMP  (BERGAMINI) 

REFLUX  RATIO 

MOLAR  ENTHALPY  OF  BOTTOMS 

MOLAR  ENTHALPY  OF  BOTH  CONDENSER  OUTLET  STREAMS 
FEED  ENTHALPY 

LIQUID  MOLAR  STAGE  ENTHALPIES  ( TH I ELE-GEDDE  S ) 

VAPOUR  MOLAR  STAGE  ENTHALPIES  (  TH I E L E -GE DDE S ) 

PLATE  TEMPERATURE 

ASSUMED  TEMPERATURE  (BERGAMINI) 

CORRECTED  TEMPERATURE  (BERGAMINI) 

CONDENSER  TEMPERATURE 
FEED  TEMPERATURE 

THETA  IN  THETA  CONVERGENCE  PROCEEDURE 
REDUCED  TEMPERATURE 
STORED  STAGE  TEMPERATURE  PROFILE 
BOTTOMS  TEMPERATURE 

VAPOUR  COMP  MOLAR  FLOW  RATE  (DUMMY  VAR  I  ALE )  { BERGAM I N I ) 
COMPONENT  K  RATIO  (DUMMY  VARIABLE) 

LOG  COMPONENT  K-RATIO  (DUMMY  VARIABLE) 

MOLAR  VOLUME  OF  COMPONENTS)  IN  THE  LIQUID 

ACENTRIC  FACTOR 

STAGE  LIQUID  MOLE  FRACTIONS 

PARTIAL  CONDENSER  LIQUID  COMPOSITION 

FEED  LIQUID  COMPOSITION  (SPLIT  FEED) 

COMPONENT  NAME 

RATIO  OF  BUBBLE  PUINT/  DEW  POINT 
HYPOTHETICAL  COMPONENT  MOLECULAR  WEIGHT 
STAGE  VAPOUR  MOLE  FRACTIONS 
PARTIAL  CONDENSER  VAPOUR  COMPOSITION 
FEED  VAPOUR  COMPOSITION  (SPLIT  FEED) 

COMPRESSIBILITY  FACTOR  FOR  VAPOUR  AT  A  STAGt 
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J  A 1  HYDROGEN  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

J  A  2  METHANE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

J  A  3  NITROGEN  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JA4  OXYGEN  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JA5  CARBON  MONOXIDE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JA6  CARBON  DIOXIDE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JA7  HYDROGEN  SULFIDE  CHAO-SEADER  FUGACITY  EQUATION  CONSTANTS 

JX  FEED  FLAG  (  1  =  SL , 2  =  SV , 3  =  SPL 1 T  FRC  C0N,4=SPLIT  T  CON) 

JXX  CONDENSER  FLAG  (1=T0TAL,  2^=PARTIAL  CONDENSER) 

KKK(*)  IDEAL  K-RATiO  SUBROUTINE  FLAG 

KXN  COUNTER  IN  THE  MAIN  PROGRAM 

KXX  TEMP  PROFILE  FLAG  CONTROLLING  L-V  PROF L t  CALCULATIONS 


******************  PROGRAM  ERROR  MESSAGES  ************************ 

***  ERROR  01  ***  MORE  THAN  THIRTY  TRIALS  REQUIRED  FOR  FLASH 
CALLED  FROM  FLASH  SUBROUTINE 

ABSISUM  MOLE  FRAG  IN  LIQ-SUM  MULE  FRAC  IN  THE  VAP)  AND  OR 
ONE  OR  MORE  OF  THE  MOLE  FRAC  IN  THE  LIQ  IN  THE  CONDENSER 
DIFFERS  FROM  THE  ONE  PREVIOUSLY  CALC  BY  1.0E-04  AFTER  30 
TRIALS.  THE  LAST  VALUES  CALC  ARE  1 AKEN. 

***  ERROR  02  ***  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED  FOR  Z  CONVER 
E  NC  E 

CALLED  FROM  KVAL  SUBROUTINE 

COMPRESSIBILITY  FACTOR  Z  DIFFERS  FROM  THE  ONE  PREVIOUSLY 
CALCULATED  BY  MORE  THAN  1.0E-04  IN  ABSOLUTE  VALUE  AFTER 
THIRTY  TRIALS.  THE  LAST  CALCULATED  VALUE  IS  TAKEN. 

***  ERROR  03  ***  DEwPT  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  DEWPT  SUBROUTINE 

THE  ABSISUM  MOLE  FRACTION  IN  THE  LIQ-1.)  IS  GREATER  I.0E-04 
AND  OR  ONE  OR  MORE  OF  THE  COMPONENT  MOLE  FRACTIONS  DIFFER  FROM 
THE  PREVIOS  CALCULATION  BY  1.0E-04  AFTER  THIRTY  TRIALS 
THE  VALUES  FROM  THE  LAST  CALC  ARE  TAKEN. 

***  ERROR  04  ***  BUBPT  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  BUBPT  SUBROUTINE 

THE  ABSISUM  MOLE  FRACTION  IN  THE  VAP-1.)  IS  GREATER  1.0E-04 
AMD  UR  ONE  OR  MORE  OF  THE  COMPONENT  MOLE  FRACTIONS  DIFFER  FROM 
THE  PREVIOS  CALCULATION  BY  L.0E-04  AFTER  THIRTY  TRIALS 
THE  VALUES  FROM  THE  LAST  CALC  ARE  TAKEN. 

***  ERROR  05  ***  MORE  THAN  THIRTY  TRIALS  ARE  REQUIRED  FOR  DISTIL 
CALLED  FROM  SUBROUTINE  D I  ST  I L , PART  I AL  CONDENSER  CALCULATION 
ABSISUM  MOLE  FRAC  IN  LIQ-1.)  AND  OR  ONE  OR  MORE  OF  THE  MOLE 
FRAC  IN  THE  LIQ  DIFFERS  FROM  THE  PREVIOUS  CALC  BY  MORE  THAN 
1.0E-04  AFTER  30  TRIALS.  THE  LAST  CALC  VALUES  ARE  TAKEN. 

***  ERROR  06  ***  TEMP  MOKE  THAN  THIRTY  TRIALS  ARE  REQUIRED 
CALLED  FROM  SUBROUTINE  TEMP 

TEMPERATURE  CORRECTION  SUBROUTINE  IN  THE  THIELE  GEDDES  METHOD. 
THE  ABS I  SUMY-1 .  )  I S  GREATER  THAN  1.0E-04  IN  THE  BUBBLE  POINT 
THE  LAST  CALCULATED  TEMPERATURE  IS  TAKEN. 

***  ERROR  07  ***  SPECIFICATION  FOR  D  AND  THETA  NOT  MET  WITHIN  25 
TRIALS  OF  L-V  PROFILES 

CALLED  FROM  THE  MAIN  THIELE  GEDDES  OR  BERGAMIN  PROGRAMS 

THE  CALCULATIONS  HAVE  NOT  CONVERGED  TO  THE  SET  SPECIFICATIONS 

AFTER  25  TRIALS  AT  CORRECTING  THE  LIQ-VAPOUR  PROFILE. 

THESE  ARE  ( U-D  SP  EC  )  .  L  E  .  1  .0  E-04 ,  AB S (  THE T  I - 1 . 0 ) . L E . 1 . OE-O 3 
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III -13 

THE  PRINT  OUT  IS  TAKEN  FROM  THE  LAST  CALCULATION 
***  ERROR  08  ***  SPECIFIED  TEMPERATURE  ****  F  ABOVE  DEW  POINT 
CALLED  FROM  FLASH  SUBROUTINE 

THE  TEMPERATURE  SPECIFIED  FOR  THE  CONSTANT  TEMPERATURE  FLASH 
IS  ABOVE  THE  FEED  DEW  POINT.  THE  FEED  IS  TAKEN  AS  VAP  FEED. 
**#  ERROR  09  ***  SPECIFIED  TEMPERATURE  ***»  F  BELOW  BUBBLE  POINT 
CALLED  FROM  FLASH  SUBROUTINE 

THE  TEMPERATURE  SPECIFIED  FOR  THE  CONSTANT  TEMPERATURE  FLASH 
IS  BELOW  THE  FEED  BUBLE  POINT.  THE  FEED  IS  TAKEN  AS  LIQ  FEED 


COM MON/ ONE/  C T ( 20 ) , P C ( 20 ) , W ( 20 ) , DEL TA ( 20 ) , V 1 ( 20 ) , V AP ( 2 0 ) , A { 1 6 , 6 ) , 

1 A AOB ( 51 ) ,ZZ( 51 )  • BBM I  X ( 5  I  )  ,DDlLMX ( 5 1 )  , HL I Q  , HV AP 
COMMON/ TWO/  X(5l,20)»Y(bl,20)t P  »  NCP , NTP »  NFP , BOT  *  D I  ST , AK( 5L , 20 ) 

COM MON/ THREE/ JX , J A 1 , J A2 , J A 3 , J A4 , J A 5 , J A6 , J A7 , J XX , FR AC , FRC *  A A ( 4 , 20 ) 
COMMON /FOUR /A VP (50),ALP(50),T(50) 

COMMON/FIVE/  REFXR,  BX 1 ( 20  )  , DX I  l 20 )  , TD  ,  TW , TF , FX ( 20 ) 

DIMENSION  T  A  (  5 )  »  V ( 20  )  »  B  I  D  I (20)  »DI (20) »BI  (20) , XX ( 20 )  , YY ( 20 )  ,KKK(50) 
DIMENSION  XFI(20)fYFI(20)fX0(2C),YD(20),PSI(51,20) 

DIMENSION  A VP  1(  50 ) f  ALP1 ( 50)  , TT ( 50) 

DIMENSION  X  M  T ( 2  0  >  2 ) 

REAL  L0( 20) ,L (50,20) ,LX(20) 

6  FORMAT  ( 1X,6X»5E13.6) 

1 1  FORMAT  ( 1X,6X»E13.6) 

INPUT  DATA  IS  READ  IN  AND  OR  CALCULATED 

CALL  B INPUT  (NC,NHC,XMT> 

NCP  =  NC  +NHC 

I F ( MCP.LE .NC )  GO  TO  130 
CALL  BPHYS  (NC,XMT) 

130  CONTINUE 
KXX  =  1 
KXN  =  1 

BOT= 1 . 0-D 1ST 
DO  222  N=  1  , NTP 
22  2  K  K  K ( N )  =  1 

DO  598  1  =  1, NCP 
D I (  I ) =D I  ST  *DXI (  I  ) 

598  81(1 )=BOT*BXI  (  I  ) 

CALCULATION  OF  ASSUMED  LINEAR  TEMPERATURE  PROFILE 
CON=NTP 

DEL=(TW-TD)/CON 
TD=TD+459 . 6 
T ( 1 ) =TD+CEL 
DO  10  N=2 , NTP 
10  T{N)=T(N-1)+DEL 

CALCULATION  OF  FEED  CONDITION 

IF( JX.EQ.4)  GO  TO  129 
TF=  T (NFP  ) 

129  TX=TF 
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111-19 

CALL  FEED  < TX , FX , XF I , YF I , NTP+2 » SHF  I , XMT ) 

T  F  =  TX 

WR I TE ( 6 , 17)  SHF  I 

calculation  of  assumed  linear  vapour  and  liquid  profiles 

M=NFP-  1 

DU  8  N  =  1 , M 

ALP ( N ) =REFXR*DI ST 

8  AVP ( N ) = ( REFXR+1 . ) *DI ST 
M  =  N  T  P— 1 

DO  9  N  =  N  F  P  ,M 
ALP(N)=ALP(NFP-L )+FRAC 

9  AVP ( N) = AVP ( NFP- 1 )-( i.-FRAC ) 

AVP ( NTP ) =  AVP I NEP- 1 ) - ( 1 .-FRAC ) 

ALP ( NTP ) =BQT 

STORAGE  OF  L-V-T  PROFILES  TO  CHECK  WITH  NEWLY  CALCULATED  ONES 

DG  131  N=  1 » NTP 
ALP1  ( N ) = ALP ( N ) 

AVP  1  ( N ) = AVP ( N ) 

131  T  T ( N ) =  T ( N ) 

CALC  OF  CONDENSER  CONDITION  AND  CONDENSER-REBOILER  HEAT  LOADS 


GO  TO  { 69 , 6 1 ) , J  XX 
61  CALL  K1VAL  (NTP+1  ,TD,3) 

DFR AC=REFXR/ (REFXR+1 . ) 

CO  62  1=1, NCP 
YD (  I  )  =DX HI) 

X D (  I  )  =DX I {  I  )  / VA  P (  I  ) 

6  2  Y(  1,  l)=OFRAC*XD(  I  )+(  1 . -DFR AC ) *  YD (  I ) 

GO  TO  70 

69  DO  777  1=1, NCP 
77  7  Y (  1  ,  I  ) =DX I (  I  ) 

70  CALL  K1VAL  (  1 ,  T  (  1  )  ,  1  ) 

CALL  KVAL  ( T { l ) , 1 ) 

DO  763  1=1, NCP 
753  X (  1  » I  ) -Y (  1 , I  )  /VAP ( I  ) 

60  DO  75  1=1, NCP 
75  XX (  I  )  =  DX HI) 

CALL  DISTIL  (TO, XX  , SHD I  ,  HD  V , N TP+ 1 , YD , XD , REF XR , H DX , HDY , T  (  1  )  ) 
CALL  BUBPT  ( BX I  , T  ( N TP  )  ,  NTP ) 

DO  93b  1=1, NCP 
938  XX (  I )  =  X ( NTP, I  ) 

CALL  HVAL  ( T ( NT P  )  ,  Y Y , XX  ,2, NTP) 

SHb  I  =  H L  IQ 

OQC=( HD V- SHD I )*DIST*(REFXR+1. ) 

GO  TO  (30,31  ),J XX 

30  DXD=SHDI 
GO  TO  32 

31  DXD=HDY 

32  LQR=  DXD  *D I S T+SHBI * ( 1 .-D I  ST ) - SHF I+DQC 
WRITE (6,  17)  DQC 
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40 

WRITE (5, 17)  DOR 

41 

GO  TOT  80 , 8  1  )  ,  JXX 

42 

80 

HD  =  D I S  T*  SHD I 

43 

GO  TO  8^ 

4-4 

8  I 

HD=  D I S  T  *  HD Y 

45 

82 

CGNT  INUE 

46 

H8  =  SHB {  *  BO  T 

c 

c 

c 

c 


CALCULATING  FROM  BOTTOM  UP  COLUMN,  PLATE  BY  PLATE,  MASS 
TEMPERATURE  CORRECTIONS  AND  ENTHALPY  BALANCES. 


47 

00  327  1=1, NCP 

50 

327 

L { NTP-  1 ,  I )  =  A  VP ( NTP ) *  Y ( NTP ,  I  )  +B 

52 

CO  714  1=1, NCP 

53 

714 

L (NTP,  I  )=BOT*BX  1(1) 

55 

MM  =  NT  P 

5o 

KF=NTP-NFP 

57 

CO  1000  N N  =  1 , K F 

60 

N=MM-NN 

61 

K  =  1 

62 

K  1  =  1 

63 

KK=  l 

64 

TAT  K)  =  TTN) 

65 

668 

CONTINUE 

66 

IFTK1.LF.2)  GO  TO  313 

71 

IFTN.EQ.NFP)  GO  TO  313 

74 

1 F ( KXX.EQ. 1 )  GO  TO  313 

77 

DO  802  1=1, NCP 

00 

802 

YYT  I )=Y(N,  I  ) 

02 

CALL  HVAL  (TTN)  ,YY,XX,  1  , N ) 

03 

H V=HVAP 

04 

CALL  HVAL  T T ( N- 1 ) , Y Y , Y Y , 2 , N- 1 ) 

08 

HL=HL IQ 

06 

CALL  HVAL  (  T ( N-  1  )  , Y Y , B I , 2 , N-  1  ) 

07 

HT  =  HL  IQ 

10 

AVP (N)=(HT-HB+DQR)/ ( HV-HL ) 

11 

CALL  VLTEST  (AVP,AVP1,N) 

12 

ALP ( N—  1  ) =  A V  P ( N ) +B01 

13 

313 

SUM Y=0 . 

14 

K  1  =  3 

13 

S  U  M  X  =  0  . 

16 

DO  314  1=1, NCP 

17 

314 

SUMX=SUMX+L ( N, I ) 

21 

CO  803  1=1, NCP 

22 

803 

X  (  N  ,  I  )  =L  (  N  ,  I  )  /  S U M X 

24 

TX=T (N ) 

25 

IFTKKKTN) .GT.2)  GO  TO  670 

30 

CALL  RIVAL  (N, IX, 2) 

31 

KKK ( N ) =3 

32 

670 

CALL  KVAL  ( TX , N ) 

33 

DO  672  I  =  i , NC P 

34 

672 

AKTK, I  )  =  VAP( I ) 

36 

CO  671  1=1, NCP 

37 

67  1 

SUMY=SUMY+L( N» I  )*AK(K,  I  ) 

+  1 

DO  316  1=1, NCP 

BALANCES , 
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SN 

42 

316 

44 

47 

50 

315 

52 

53 

972 

54 

974 

56 

973 

57 

62 

63 

64 

317 

65 

70 

71 

1000 

C 

C 

C 
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Y(N»I)=L(N,I)  *  AK.  ( K  ,  I  )  /  SUMY 
IF(N.EQ.NEP)  GO  TO  972 
DL1  3 1  5  1=1, NCP 

L ( N-l , I ) =AVP ( N) *X ( N , I ) *AK (K, I ) +B I ( I ) 

GU  TO  973 

DU  974  1=1, NCP 

L  X (  I  )  =  AVP ( NFP ) *  Y ( N »  I  )  +  B  1  (  I) 

XR=SUMX/SUMY 

IE ( KK.GT .2 )GO  TO  317 

CALL  PSY  (  TA( K )  ,K,N  *  PS  I  ) 

KK=  3 

CALL  CTEMP  { T A , T Z , K , N , XR , PS  I ) 
IFIK.LT.3)  GO  TO  668 
T  (  N  )  =  T  Z 
continue 


CALCULATING  DOWN  THE  COLUMN  FROM  TOP, PLATE  BY  PLATE, 
TEMPERATURE  CORRECTIONS  AND  ENTHALPY  BALANCES. 


73 

DO  2000  N= 1 , NFP 

74 

K=1 

75 

K  1=  1 

76 

KK=  1 

77 

TA ( K  )  =  T ( N ) 

00 

667 

CONTINUE 

Oi 

IF(N.EQ.NFP)  GO  TO  907 

04 

IF ( N.EQ. 1 )  GO  TO  302 

07 

IF(K1.LE.2)  GO  TO  333 

12 

90  7 

CONTINUE 

13 

I  F ( KXX.EQ.  1  )  GO  TO  911 

16 

CO  801  1=1, NCP 

17 

80  1 

XX (  I  )  =  X ( N-l , I  ) 

21 

CALL  HVAL  ( T ( N-  1  )  ,  Y Y  ,  XX  ,  2  ,  N- 1 ) 

22 

HL=HLIQ 

23 

IF(N.EQ.NFP)  GU  TO  909 

26 

GU  TO  9  L  0 

27 

909 

CALL  HVAL  ( TF , X X , XX ,  1  , N  +  2 ) 

30 

H  H  =  H  V  A  P 

31 

CALL  HVAL  (T( NFP), XX, XX, 1, NFP) 

3? 

HHH=HVAP 

33 

HV= ( HH* ( 1 .-FRAC ) +HHH*AVP( NFP)  ) /{  (  1  .-FRAC ) +AVP (NFP )  ) 

34 

CALL  HVAL  (  T F , D  I  , XX ,  1 , N +2 ) 

35 

HH  =  HV  AP 

36 

CALL  HVAL ( T ( NFP ) , OI , XX ,  1 ,  NFP ) 

37 

H  H  H  =  H  V  A  P 

VO 

HT  = ( HH* (  1 .-FRAC ) +HHH*AVP ( NFP ))/((  1 . -FRAC ) + A VP ( NFP)  ) 

VI 

ALP (N-l )=( DCC+HU-HT )/ (HV-HL ) 

V2 

AVX=ALP( N-L ) +DIST 

V3 

AVP  <  NFP  )  =AVX-1 . +  FRAC 

V4 

GO  TO  911 

V5 

910 

CO  MT  I NUE 

V6 

CALL  HVAL  ( T ( N )  , XX , XX , 1 , N  ) 

V7 

HV=HVAP 

50 

CALL  HVAL  ( T ( N ) , D I , X X , 1 , N ) 

3 1 

H  T  =  H  V  A  P 
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SOURCE  STATEMENT 

I] 

$52 

A  L  P  (  N  - 1 )  =  ( DQC  +  HD-H  T )/ (HV-HL ) 

$53 

CALL  VLTEST  ( AL P , AL P  1  , l\|- 1 ) 

$54 

AVP ( N  )  =  AL P  ( N-l ) +  DI  ST 

$5  5 

911 

DO  713  1=1, NCR 

$56 

713 

L ( N-l ,  I )=X ( N-l ,  I  )  *ALP { N-l  ) 

$60 

IF(N.tO.NFP)  GO  TO  2000 

$63 

GO  TO  333 

$64 

302 

CONT  INUE 

$65 

IF  (K.E0.2)  GO  TO  663 

$70 

AVP(  1)=DIST*REFXR  +  DIST 

$71 

GO  TO  (  6 7  »  6 8  )  ,  J  XX 

(72 

67 

DO  754  I = 1 , NCP 

$73 

754 

LO (  I  )=DI  (  I  )  #REF  XR 

$75 

GO  TO  755 

$76 

68 

DO  300  1  =  1  ,  NCP 

$77 

300 

LO  {  I  )  =  X D  (  I  )  *REFXR*D  I  ST 

-01 

755 

DC  766  1  =  1  ,  N C P 

•02 

7  56 

V( I )=L0( I )+0I (I ) 

hO  4 

333 

SUMY  =  0 . 

•05 

K 1  =  3 

•06 

IF(N.EQ.l)  GO  TO  305 

•11 

DO  335  1=1, NCP 

42 

335 

V (  I  )  =L ( N-  1 ,  I  )  +D  I  (  I  ) 

44 

305 

DO  3  34  1  =  1  , NCP 

-15 

334 

SUM Y=  SUM Y  +  V (  I  ) 

17 

DO  821  1=1, NCP 

•20 

821 

YIN,  I  )=V( I  )  /SUMY 

•22 

66  3 

T  X  =  T  A I  K  ) 

-23 

I  F { KKKIN)  .GT.2)  GO  TO  664 

26 

CALL  RIVAL  IN,TX,1> 

27 

K  KK ( N ) =3 

30 

66  4 

CALL  KVAL  (TX*N) 

31 

DU  665  1=1, NCP 

32 

665 

AK  (  K  ,  I  )  =  V A P (  I  ) 

34 

SUM  X  =  0 . 

35 

DO  666  1=1, NCP 

36 

66  6 

SUMX=SUMX  +  V(  I  )/AK (K ,  I  ) 

40 

DO  3  36  1  =  1,  NCP 

41 

X ( N  ,  I  )=V(  I  )  / AK ( K ,  I ) / SUMX 

42 

336 

L { N ,  I  ) =  X ( N ,  I  )  *ALP ( N  ) 

44 

XR= SUMX /SUMY 

45 

IFIKK.GT.2)  GO  TO  337 

50 

CALL  PSY  (  F A ( K )  , K , N , PS  I  ) 

51 

KK  =  3 

52 

337 

CALL  CTEMP  ( TA, TZ , K , N , XR , PSI ) 

53 

IFIK.LT.3)  GO  TO  667 

56 

T ( N  )  =T Z 

57 

2000 

CONTINUE 

61 

IF(KXX.EQ.l)  GO  TO  42 

64 

DO  411  1=1, NCP 

65 

41  1 

YY (  I  )=Y(NTP,  I  ) 

67 

CALL  HV AL  ( T ( NT P ) , Y Y , XX , 1 , N TP ) 

70 

HHH=HVAP 

71 

DO  412  1  =  1,  NCP 

72 

412 

XX(  I  )  =  X ( N T P , I  ) 
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FORTRAN  SOURCE  LIST  COLUMN 

III-23 


74 

75 

76 

77 
Cl 
02 
03 
04 

C 

c 

c 

c 

>05 

>06 

>07 

>10 

>11 
>12 
>13 
>14 
>15 
>16 
>17 
>20 
>2 1 
22 
>24 
>25 

C 

26 

31 

>34 

C 

35 

36 
>37 
>40 

41 

42 
>44 
>45 
46 
>4  7 
50 
>52 
>53 
54 

C 

C 

C 

56 

57 
>60 

63 

64 


CALL  HVAL  ( T ( NT P ) , V V , X X  ,  2 , N T P  ) 

HH=  HL I  0 

DO  413  I = l ,  NCP 
413  XX(  I ) =X ( NTP-  1  *  I  ) 

CALL  HVAL  ( T I N T P- 1  )  , Y Y , XX , 2 , NT P- 1  ) 

H=HL I Q 

A V  P ( NTP )  =  ( ROT  * { HH-H ) -DQR ) / ( H-HHH ) 

ALP ( NTP- 1 ) =  AVP( NTP ) +BOT 

FEED  PLATE  MISMATCH  INCORPORATING  THETA  METHOD  OF  CONVERGENCE 
SETS  THE  CORRECTION  FOR  THE  NEXT  ITERATION 

42  SUM D I  =  0 . 

00  109  1=1, NCP 

GO  TO  (  12  1  ,  122,  123,  123  )  ,  JX 

121  Cl=l. 

C2  =  0 . 

GO  TO  120 

122  C1=0. 

C2=  1 . 0 

GO  TO  120 

123  C1  =  FRAC*XE  I  (  1 ) / F X ( I  ) 

C2=  < l.-FRAC)*YFI( 1 )/FX(  I  ) 

120  BIDI  (  I  )  =  (  UNEP-1,  I  ) /DI  (  I  )  +C  1  )  /  (  LX  (  I  )  /  B I  (I)  -  1 .  +C  2  ) 

D I (  I  )  =  FX (  I  )/(  l.O+BIDI  (  I  )  ) 

109  SUMDI  =  SUMD I +DI (  I  ) 

DEL 1=( DIST-SUMD I  ) 

WRITE (6,  17)  DELI 
CONVERGENCE  CRITERION 
IFIKXN.LE.2)  GO  TO  15 

I F { AB5( DEL  1 ) .LE . 1.0E-04. AND. ABSI l.-THETl ) .LE.  1.0E-03 )  GO  TO  400 
15  CONTINUE 

THETA  CONVERGENCE 

CALL  THETA  (  THE T 1 , E X , B I D I  ) 

41  FORMAT ( IX, 6X, 18HTHETA  CONVERGENC£= , F8. 5 ) 

WR I TE ( 6 , 4 1  )  THE  T  1 
DO  113  1=1, NCP 

0  I (  I  )  =  F X (  I  )  /  (  1. +THET1*6IDI  (  I  )  ) 

113  81 ( I )=THET1*BIDI( I ) *DI ( I ) 

SUMD 1=0. 

SUMS  I =0 • 

UO  711  1=1, NCP 
SUMDI-SUMDI+OI (  I  ) 

71 1  SUMB I  =  SUMB  I  +  B I (  I  ) 

DO  712  1  =  1, NCP 

D X  I  (  I  )  =  D  I  (  I  ) / SUMD I 

712  BXI  (  I  )  =B  I  {  I  )  /SUMBI 

CHECK  i-PROFILE  TO  DECIDE  IF  L-V  CORRECTIONS  ARE  TO  BE  MADE 

KXX  =  Q 

DO  4  15  N=  1 , NTP 

IF( ABS(TT(M) —  TIN) ) • L E • 1 0 •  )  GO  TO  415 
KX  X  =  1 

415  CONTINUE 
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FORTRAN  SOURCE  LIST  COLUMN 


08/' 


SN 


III--4 


66 
67 
70 
72 
7  3 
74 
01 
02 
03 
10 

11 

14 

lb 

16 

17 

22 

23 


DO  4  L 6  N=1,NTP 
T(N)=IT(N)+TT(N))/2.0 
416  T  T { N )  =  T ( N ) 

WRITE! 6, 14 ) 

14  FORMAT ( IX, 20X, 23HNEW  TEMPERATURE  PROFILE) 

WRITE (6, 6)  (TIN) ,N=1,NTP) 

W  R  I  T  E  (  6 ,  1 6  ) 

16  FORMAT { IX, 20X, 18HNEW  VAPOUR  PROFILE) 

WRITE (6, 6)  ( AVP (N) ,N=1  ,NTP) 

351  FORMAT  (1X,16H**»  ERROR  07  *  *  * ,71HSP EDIFICATIONS  FuR  D  AND  THETA  N 
1 0 T  MET  WITHIN  2  5  TRIALS  OF  L-V  PROFILES) 

IF ( KXN.LE.25)  GO  TO  350 
W  R  I  T  E  (  6 , 3  5  1  ) 

GO  TO  400 
350  CONTINUE 

IF(KXX.EQ.l)  GO  TO  60 
KXN  =  KXN+  1 
GO  TU  60 


C 

C  PRINT  CUT  OF  THE  BERGAM INI  CALCULATIONS 

C 


24 

400 

CONTINUE 

25 

DO  43  N=  1 »  NTP 

26 

43 

T  (  N  )  =  T  (  N  )  —  4  5  9 . 6 

30 

TD=TC-459.6 

31 

CALL  BOU TP  T  ( DOC , DOR , XMT ) 

32 

CALL  EXIT 

33 

END 
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Short  Cut  Design  Programs  With  Rigrous  Check  Calculations 


Short  Cut  +  Thiele-Geddes 


Short  Cut  +  Bergamini 


Mainline  $IMC  COLUMN 

(Short  Cut  +  Thiele- 
Geddes  as  subroutine) 


$IBFTC 


Subroutines 


SINFJT 
SET CUT 
SOUTPT 
BT2FJT 
IH1TRP 
IHTERP 


< 


GOLDIT 

GEODES^** 

SPHYS 

FEED 

FLASH 

DISTIL 

KVA  L 

KLVAL 

HVAL 

DEWPT 

BUBPT 

CFLOWR  j** 

COMP 

TEMP 

THETA 

VP1LPQ  I 

VLTEST  I 


AOUTPT 


I 

J 


$IBFTC  COLUMN 
(Short  cut  +  Bergamini* s 
calculational  procedure 
as  subroutine) 


$IBFTC 


SINPUT 
SET  CUT 
SOUTPT 
IN2PUT 


IE1TRP 

IHTERP 

GOLDIT, 


BERGAM 

SPHYS 

FEED 

FLASH 

DISTIL 

ML 

KLVAL 

HVAL 

DMVPT 

BUBPT 


** 


THETA  | 

VLTEST 

PSY 

CTEMP  I 
BOUTPT  j 


If  the  short  cut  design  program  alone  is  desired  the  (-**•)  subroutines, 
which  are  used  in  the  rigorous  calculations  only,  can  be  removed. 
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0  $  I  BP T C  COLUMN  NUL I  ST , NODECK 

C 

C  «#*«»##»*#***###**  *-**#«*********■»• 

c 

C  THIS  PROGRAM  USES  THE  FENSKE-UNDER WOOD-MADDOX  SHORT  CUT  METHOD 

C  OP  CALCULATING  MULT  I -COMPONENT  DISTILLATION  COLUMNS.  THIS  APPROX- 

C  IMATE  SOLUTION  IS  THEN  USED  AS  A  STARIING  POINT  FOR  THE  RIGOROUS 

C  THIELE  GF  DUE  S  OR  BE  R GAM  I  N I  CALCULATIONS.  THE  RIGOROUS  METHODS 

C  MAY  THEN  BE  USED  TO  OBTAIN  THE  DESIRED  SPECIFICATIONS  BY  VARYING  THE 

C  THE  OPERATING  AND  COLUMN  SPECIFICATIONS. 

C 

Q  ■»**#*- ***»*- **#*#-*  *#***##*»***-#*#*«•*■*  *»**«-**«** 

c 

1  COM MON /ONE/  CT { 20 ) , PC ( 20 ) * W ( 20 ) , DELTA { 20 ) , VLl 20 ) * VAP ( 20 ) » A ( 16 t 6 ) * 

1  A AOB ( 5  1  )  jZZ(5I)  ? BBM I  X ( 5  1  )  , DDE LMX I  5 1 ) »HLIQ»HVAP 

2  COMMON/TWO/  X ( 5 1 , 20 ) , Y { 5 1 , 20 ) , P , NCP , NTP , NF P , BOT , DI ST , AK ( 5 L , 20 ) 

3  COMMON /THREE/JX, JA1 , JA2 , J A3 , J A  4 , J Ab , J A6 , J A7 , JXX , FR AC , FRC , A A < 4 , 20 ) 

4  COMMON/FOUR/  A VP ( 50  )  , At P ( 50 )  , T ( 50 ) 

5  COMMON/ FIVE/  REFXR,  BXI  (20),DXI  (20) , TD , TW , TF , FX ( 20  ) 

6  COMMON/ SIX/  SHV ( 50) , SHL(bO) , AL I Q ( 50 , 20 ) , ABF ( 50 , 2 0 ) , ASF ( 50 , 20 ) 

7  DIMENSION  Y F I ( 2 0  )  , X F I l 2 0 )  , D I  ( 2 0 )  , B I  ( 2 0 )  , F I  ( 2 0 ) 

10  DIMENSION  XMT { 20 , 2 ) 

C 

C  INPUT  DATA  IS  READ  IN  AND  OR  CALCULATED 

C 

11  CALL  SINPUT  ( NC , NHC , D I ,  B  I  »  F I , P  » R ARM  , I LK , I HK , TF , XMT f I TERP ) 

C 

C  CALCULATION  GF  FEED  CONDITION 

C 

12  NCP=NC+NHC 

13  IF(NCP.LE.NC)  GO  TO  129 

16  CALL  SPHYS  ( NC »  XMT  »  F  I , D I »  B I ) 

17  129  TX=TF+459.6 

20  F  F  =  0  . 

21  00  100  I = 1 »  NCP 

22  100  FF=FFfF  1(1) 

24  DO  101  1=1, NCP 

2b  D I {  I ) =D I (  I  )/FF 

26  B I (  I  )  =B I ( I  )  / FF 

27  101  F X (  I  )  =  F I  (  I  ) /FF 

31  N  T  P  =  2 

32  CALL  FEED  < TX , F X , XF I , YF I , NTP  +  2 , SHF  I , XMT ) 

33  T  F  =  T  X 

34  CALL  SRTCUT  ( D I , B I , X F I , YF I , SHF  I , I LK , I HK , HXX , R ARM , AN , SZ , DQC , DQR , I T E 
IRP,RM) 

C 

C  PRINT  OUT  OF  SHORT  CUT  METHOD 

C 

35  CALL  SHUT PI  ( DQC , DQR , AN , SZ , XMT , RM ) 

C 

C  THIELE  GEDDES  RIGOROUS  CALCULATION 

C 

36  CALL  GEDDES  ( DI , B I , XF I , YF I , HXX , SHF  I , DQC , DQR ) 

C 

C  PRINT  OUT  OF  THIELE  GEDDES  CALCULATIONS 


08/ 


Ill  c  V  •'  I 

v  .  !  I  j  Jl  J  .  1  !•  I  ) 


•a 

>;  ..  -i- 

•;  x  ■ 

*7  %  . 

1  ••  ..  •: 

.  :l  i 

;  ", 

::  •  *;  *;  '■  'i  :r  } 

■  *; 

HHX  7 

U  J  T  M 

__ 

!  2.  H 

i  Z  z  *  h  , 

—  % 

‘  !  »  :  A 

. 

i  ; , 

T  J 

1  IT  ^  1  1 

n  . . l  . : . 

■».. . . . — . . . 

I  t  pi  ] 

i  ■  i  js 

A  ll 

Z  Ok. 

Ml  21  I!  1  ;  ) 

7AM 

•  i 

T  .  J. 

)  u  i 

3HT 

»  cl  .  • 

1  T  A  JU» 

JAJ  I  i 

i  A  (  Ti  . 

i 

I  V  ■ 

; 

i  ; 

1 

.  ^  1 1  r  a  j  hi  .  ' !  c  m  j  i ;  i  i 

<>  :  ..  •;!  s  ,  -s  .  .  ..  »  >:  ■;  »  *  ..  i  a  :  -  ti  •-  S  *  >  »  «  »  ••  ■  :i  »>»<:»»»# .  J 


*  (  •  )  •  ♦  ( 

v  S  )  ^  i  'll 

«  i  ) 

(  )  >  t  1  ‘  .1  )  t  ( 

) 

e  1  ) 

3  \  j  *V  C  jj 

I 

.  i 

.  (  /  X  .  (  ■ 

)  '  ’ 

f  ( 

)  .  •  ;  .  .< 

(  ,  I  i'  1 

,  .  i 

,  '  » 

f  !  '  i  *  f  1 

)  y  t  ( 

? 

(  »')•*. 

! ,  j/'.  y 

t  x  >  . ,  \  • 

f  t  *  ’  '  f  » 

t 

.1  1  t  > 

! 

\  >  \  ' 

l 

i  )  T  ,  i  • 

T-  *  .*  1 

1  '  ' 

\  A.  1  \  .  I  J 

A 

( 

*  *  1  • 

,  {  t  ;  .  (  )  i 

f 

\  V  1  \ 

A 

;  s. 

)  i  ,  ( 

*  ) 

t  1  f  C  )  I  .1  J  f  (  '  ) 

J  ’ 

(  )  ’ 

\)  I  2 \ v 

.) 

(  i  i 

i  1  1  <  1  1  *  i 

i  : 

.  i 

) 

•1  1 

1  i 

) 

I  ■;  A\  12.  ’  IQ 

.  ; .  j/  j  '  'i  - 

I 

I  r:  A.  I 

V' 

(  M* 

fit? 

X  ,  ■  !  ,  1 

*  »  ?  •  i  1  ?  1 

T  i  T 

,  J 

)  in  It.'  u/o 

-> 

I 

i  1 1  i  i  ■  j  . 

]  1  : .  J ;  . 

*  . 

> 

i  SJ 

07 

(  .  J  .  M  j  )  >  1 

{ i  .  i 

« i  1 

t  « 

v  i  <  y  ;C?2  jji  d 

*  1  1  v  si 

V 

.  -k 

j  *  J = 

l 

(  i  i  >  =  - 1  i  ^  ; 

3  ,  l  =  I  1  r  i  a'Q 

A 

t  \  t  )  I  !  =  ( 1  )  1 :  i 

(. 

in?)1  =  {  i  i 

7  \  (  1  )  I  =  (  I  )  H  J  C  I 

l 

(  I  ,  I  »  !  T  ,  1 

t 

r 

it  1  J  A 

X  1  =  1 1 

f 

i  •  y  ? . .  - . 

t  \  ■  » 

t  r  ♦ 

»  if  ■  I ■ i  »  i  h  y 

t  I 

,1  ,  1 

{ « i 

3 

V ; .  H  T  ;J  1  . 

i  ■  ■  t 

c  H 

] 

T/lflM 

3 

-J ... 

(  ■ »  r  '  t 

*  f  * 

,  if. 

)  r<  fUM2  J  J  A  3 

3 

e 

•  J  A  .1  A 

l 

j  :  i 

(  >*  , 

*  .  t  A  i  /■  i  1 

«  .  • 

r  1  »  I 

)  .  i  1  J  A 

<s' 

c 

I  t  A  1  v,'  ■  /  ■  J  .  : 

i 

I  H I  ♦ 

111)  I  I  <1 

Um 

Departme 


SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  COLUMN 
III-27 


CALL  AOU TP T  ( DQC , DQR , XMT ) 
CALL  EXIT 
END 
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FORTRAN  SOURCE  LIST 

SN  SOURCE  STATEMENT 

III-28 

;0  $  I 3F  TC  COLUMN  NOL I  ST , NODECK 
C 

C 

C  THIS  PROGRAM  USES  THE  FEN SKE-UNDER WOOD -MADDOX  SHORT  CUT  METHOD 

C  OF  CALCULATING  MULT  I -COMP UN TNT  DISTILLATION  COLUMNS.  THIS  APPROX- 

C  IMATE  SOLUTION  IS  THEN  USED  AS  A  STARTING  PUINT  FUR  THE  RIGOROUS 

C  THIELE  GEODES  OR  BERGAM IN  I  CALCULATIONS.  THE  RIGOROUS  METHODS 

C  MAY  THEN  BE  USED  TO  OBTAIN  THE  DESIRED  SPECIFICATIONS  BY  VARYING  THE 

C  r  HE  OPERATING  AND  COLUMN  SPECIFICATIONS. 

C 

C  *«**•#***»*»•*«***#*•****  »#*-**»■**-*#*##**•*** 

C 

1  COMMON/ONE/  CT ( 20 ) , PC ( 20 )  ,  W ( 20  )  , DEL T A { 20 )  ,  VI ( 20 ) , V AP ( 20 ) , A ( 1 6 , 6 ) , 

I A  A  0 B ( 51)  »  Z  Z (51)  »  BBM  I  X ( 5 1 )  ,  DDEL  MX (51),HLIQ,HVAP 
j  2  COMMON/ TWO/  X ( 5  1 , 20 ) , Y ( 5  I  ,  20 ) , P , NC P , NTP , NF P , BOT , D I S T , AK ( 5 1 , 20 ) 

43  COMMON/ THREE /JX,JA1 , J A2 , J A3 , J A 4 , J A5 , J A6 , J A 7 , J XX , FR AC , FRC , A A { 4 , 20 ) 

4  COMMON /FOUR /  AVP ( 50 )  ,  ALP ( 50 )  , T ( 50 ) 

|  5  COMMON/FIVE/  REFXR,  BX I ( 20  )  , DX II 20 ) , TD  ,  TW , TF , FX { 20 ) 

6  COMMON /SIX/  SHV ( 50)  , SHL ( 50  )  , AL  I Q ( 50 , 20 ) , ABF ( 50 , 2 0 ) , ASF ( 50 , 20 ) 

7  DIMENSION  YF  I  ( 20  )  ♦ XF I ( 20 )  » 0  I ( 2 0 ) » B I  { 20 > » F  I  ( 20 ) 

10  DIMENSION  XM  T  (  2  0  »  2 ) 

C 

C  INPUT  DATA  IS  READ  IN  AND  OR  CALCULATED 

C 

11  CALL  SINPUT  (NC»NHC»DI »BI »FI»P  »RARM  , I LK , I HK , TF , XMT , I TERP ) 

C 

C  CALCULATION  OF  FEED  CONDITION 

C 

12  NCP=NC+NHC 

13  IF { NCP.LE.NC )  GO  TO  129 

16  CALL  SPHYS  ( NC , XM T , F I  *  0  I , B I  ) 

17  129  T  X=  TF  +  459 • 6 

20  FF=0 . 

21  DO  100  1=1, NCP 

22  100  FF=FF  +  F  1(1) 

24  DO  101  1=1, NCP 

25  0 1  (  I  )  =  D I (  I  ) /FF 

26  B  I  (  I  )  =B I (  i ) /FF 

27  101  FX (  I  )  =  F I ( I ) /FF 

31  NT  P  =  2 

32  CALL  FEED  ( TX, FX, XF I , YF I , NTP  +  2  ,  SHFI  ,  XMT) 

33  TF  =  TX 

34  CALL  SRTCUT  (  D I  ,  B I  ,  XF I , YF I , SHF  I , I LK , I HK , H XX , R ARM , AN , SZ , DQC , DQR , I TE 
1RP , RM ) 

C 

C  PRINT  OUT  OF  SHORT  CUT  METHOD 

C 

35  CALL.  SOUTPT  (  DQC  ,  DQR  ,  AN  ,  SZ  ,  XMT  ,RM  ) 

C 

C  BERGAM I N I  RIGOROUS  CALCULATION 

C 

36  CALL  BERGAM  ( D I , B I , X F I , YF I , HXX , SHF  I , DQC , DQR ) 

C 

C  PRINTOUT  OF  BERGAMI N I  CALCULATION  PRUCELDURE 
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EORTKAN  SOURCE  LIST  COLUMN 


III-29 

CALL  BUUTPr  ( DOC »  DQR ,  XM  T  ) 

CALL  EXIT 
END 
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SENTRY  COLUMN 


14  0  15  4 

0  .  8  2  3  5  6  0  3 

672.48  1306.3 
C.5679702E-01 
0.365921 0E+04 
547.56  1071.3 
0 .6517691E-02 
0 • 3357740E+04 

343.9  673.1 

-  •  2_  W  ^  I  O  L_  ^  J. 

0.3683894E+C4 
55 -.5  7-9.8 

0 . 1443203E-01 
0.422C 126E+04 

665.9  617.4 
0.4469274E-01 
0 . 5-68633 E+04 

734.7  529.1 

0. 3351955E-C1 
0.6023067E+04 

765.3  550.7 
0 . 1 229E-01 
0.6654675E+C4 

829.3  483.0 
0.7681 564E-01 
0.7475643E+04 

845.6  489.5 

J.9078212E-01 
0. 8039759E+04 

914.2  440.0 
0 . 1638734E+00 
0 . 9475023E+04 

972.3  396.8 

0 . 1675  978E  +  C0 
J. 1056589E+05 
1024.9  362.1 


3  3.3405  0.176  110.00  280.0  0.0 

0  0  r  2  1 

43. 1 

0.6508904E-03  0 • 3 2 3 09q 2 E~06 
44. 0 

0 • 304054 IE-02-0. 78 9 7689 t-06 
52 . 0 

0.3505719E-02  0 . 2446472c-C6 

6  8.0 

0.8938123E- 02  —  0. 8  066164E— 06 
84.0 

0.1540639E~0l“0.2938696E-03 
0.1825  6.730  105.5 

0. 19 997 86 E+ 02  0 . 2 044134E-0 1~0 . 4146 1 1 2E~05 
0.1953  6.730  101.4 

0.20 5446 4E+02  0 . 1 8 6 5 25 0E“0 1 - 0 • 30 1 678 3 E~05 
0.2104  7.021  117.4 

0 • 2465428  E+02  0. 2 44 6248 E~0l~0 . 4437345 E~ 05 
0.2387  7.021  116.1 

0. ^518989 E+0^  0 . 0 34 8 58 7 E~0 1~ 0 . 4 1 7445 8 E~0 5 
0.2972  7.266  131.6 
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(iv)  Chao-Seader  data  is  read  in,  in  format  8F10.6  (twelve  cards,  two 
cards  for  each  set  of  constants).  They  are  read  in,  as  shown  in 
the  sample  input  data,  so  that  each  set  of  constants  corresponds 
to  the  flags  JA1,  JA2  ....... JAJ. 

(v)  Erbar  and  Maddox  Charts  are  read  in,  in  the  form  of  three  dimen¬ 
sional  2.1  point  grid  as  shown  with  sample  input  data. 
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Cons  bants  for  the  ideal  gas  enthalpy  equations . 
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■  04  product  component 


"i"  flow  rate  (lb.  moles /unit 


vrrae 


\ 

y>. 


Mean  average  boiling  point  (°F) . 
Cubic  average  boiling  point  (°F). 


liolal  average  boiling  point  (°F). 

.0' toms  composition  of  component  "i"  (mole  fraction). 
Critical  tempera!  ire  (°R). 

1 

•••:  .  !  na,.  uiiieter  (c  .1)  - . 

(“1  ) 

Pistillate  product  component  "il!  flow  rate  (lb.  moles/unit 
time) . 

Pistillate  rate  (lb.  mole/lb.  mole  feed). 


hi  fh  illate  liquid  composition  of  component  "i"  (mole  frac¬ 
tion). 


0-<.  com  ‘Onair 


"i" 


(lb.  moles) 
(  u it  time) 


bract ion  liquid  in  a  partially  vaporized  ieed. 
t’ae  ;  composition  of  component  "i"  (mole  fraction). 


, v  key  component  number, 
jig  .  key  ooirroo  •-*  number. 

:  p.  o  interpolation  ioi  bib.  r  -  nd  Maddox  Charts,  1- linear 

.i.  p  >■  ii  * 

■furogen  Ohuo-Seader  liquic  fugacity  equation  constants' 
control  ch;  racter  (component  number  of  II2  is  written). 
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~  Methane  Chao-Seader  liquid  fugacity  equation  constants*  con¬ 
trol  character. 

Nitrogen  Chao-Seader  liquid  fugacity  equation  constants'  con¬ 
trol  character. 

Oxygen  Chao-Seader  liquid  fugacity  equation  constants  *  con¬ 
trol  character. 

Carbon  Monoxide  Chao-Seader  liquid  fugacity  equation  con¬ 
stants'  control  character. 

Carbon  Dioxide  Chao-Seader  liquid  fugacity  equation  con¬ 
stants'  control  character. 

Hydrogen  Sulfide  Chao-Seader  liquid  fugacity  equation  con¬ 
stants'  control  character. 

-  Feed  type  specifying  character,  i-saturated  liquid,  2-satur- 
ated  ■vapour,  3-split  feed  constant  fraction  liquid,  4-split 
feed  at  a  constant  temperature. 

-  Condenser  type,  1-total  condenser,  2 -partial  condenser. 

-  Number  of  real  components. 

-  Feed  stage  number. 

-  Number  of  hypothetical  components. 

-  Total  number  of  theoretical  stages . 

Column  pressure  psia. 

Critical  pressure  of  component  "i"  (°R). 

Critical  pressure  for  a  hypothetical  component  (psia). 

Reflux  ratio. 

Patio  of  reflux  to  the  minimum  reflux. 

-  Distillate  temperature  (°P). 

Critical  temperature  for  a  hypathetical  component  (°R). 

Feed  temperature  (°F). 
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Ttf 

V1(I) 

¥{I) 

XM3?(l,J) 

XXWM 


Bottoms  temperature  (°f). 

Molor  volume  of  component  "i”  (mls/gm  mole). 

Component  “i"  acentric  factor. 

Component  name . 

Equivalent  molecular  weight  for  a  hypothetical  component. 
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1,'ABLE  III- 1 


CHAO  SEADER  COEFFICIENTS 


FOR  TIIE  COMPONENT  LIQUID  FUGACITY  COEFFICIENT 
_  EQUATIONS _ 


Generalized* 

Methane 

Hydrogen 

A1 

5.75748 

2 . 43840 

I.96718 

A2 

-3-01761 

-2.24550 

1 . 02972 

A3 

-4.983OO 

-0.34084 

-0.054009 

A4 

2.02299 

0.00212 

O.OOO5288 

Ac 

0.0 

-0.00223 

0.0 

A6 

0.08427 

0.10486 

o. 008585 

AT 

0 . 26067 

-0.03691 

0.0 

aA 

-0.31138 

0.0 

0.0 

a9 

-0.02655 

0.0 

0.0 

A10 

0.02883 

0.0 

0.0 

A11 

-4.23893 

0.0 

0.0 

A  ip 

8.65808 

0.0 

0.0 

All 

-1.22060 

0.0 

0.0 

a14 

-3-15224 

0.0 

0.0 

Al5 

-0.025 

0.0 

0.0 

*  For  Generalized  Case ; 

Constants  Ap  to  App  are  for  "Simple  Fluid". 

Constants  A-l0  to  A^  are  for  "Departure  from  Simple  Fluid". 
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o:uvys(  j 

!-  lli-  M)  CO  FF'j  Cl  7  *03  FOR  Tit 

12  COMPONENT  LIQUID  FUGACITY 

COEFFICIEIIT 

33 

QUATIOFS 

Generali  red* 

Methane 

Hydrogen 

Ai 

2.05133 

1 . 36822 

1 . 50709 

Ap 

-2.10899 

-1.54831 

2.74283 

A3 

0.0 

0.0 

-0.02110 

Aij. 

-0.19396 

0.02889 

0.00011 

Ar 

0 . 02282 

-0.01076 

0.0 

*6 

0.08852 

0.10486 

LTV 

CO 

LTV 

CO 

O 

O 

6 

a7 

0.0 

-0.02529 

0.0 

A8 

-0.00872 

0.0 

0.0 

a9 

-0.00353 

0.0 

0.0 

A10 

0.00203 

0.0 

0.0 

An 

-4.23893 

0.0 

0.0 

A12 

8.65808 

0.0 

0.0 

a1.3 

-1.22060 

0.0 

0.0 

Al4 

-3-15224 

0.0 

0.0 

a15 

-O.O25 

0.0 

0.0 

*  For 

Generalized  Case 

Constants  Ap  to  App  are  f°r  "Simple  Fluids’*. 

Constants  App  to  Ape,  are  for  "Departure  From  Simple  Fluid". 
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COEFFICI  !  TS 


'd? 


MR  FUG  GFJG3G  i.j;  i  ID  FJGACITY  COEFFICIENT  EQUATIONS  FOR 
S>  .  .UJ  JOp,  DEVELOPED  BY  J.  H.  ERBAR  AND  ¥.  C,  EDMISTER 


No  COp  HpS 


A1 

2.7365534 

-30.060874 

3.0581210 

A  o 

-1.9810310 

6.1409853 

-2.6491906 

A3 

-0.51487289 

45.263229 

0.37457945 

A4 

0.042470988 

-27.303012 

-1.4647096 

-0.002814385 

5.9152545 

0.45734766 

A6 

-0.02947496 

0 . 36838431 

-0.95721679 

a7 

A, 3 

0.021495843 

-  0.67916811 

1  .  A2']  I.u-rij 

0.0 

0.15546365 

-0.50242238 

a9 

0.0 

0.0 

0.33859029 

MO 

0.0 

0.089562849 

-0.26678483 

ai 

0.0 

0.0 

0.0 

a12 

0.0 

0.0 

0.0 

A13 

0.0 

0.0 

0.0 

Al4 

O.G 

0.0 

0.0 

ai5 

0.0 

0.0 

0.0 

' 
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TABLE  IV  (a) 

DATA  FOR  THE  CHAQ-SEADER  CORRELATION 


TC°R 

Pp  . 
cpsia 

Wi 

S-l  (Ca.l)2 

M  ) 

Vi*  (ml  ) 

(gm  mole) 

n2 

227.16 

^92- 3 

.0206 

4 . 44o 

53.0 

h2s 

672.48 

1306 . 5 

.0868 

8.80 

43.1 

C02 

547.56 

1071.3 

.1768 

7.120 

44.0 

C1 

3^3-9 

673-1 

0.0 

5.68 

52.0 

c2H4 

509-5 

742.1 

0.0949 

6.08 

6l.O 

C2 

550-5 

709.8 

0.1064 

6.05 

68.0 

C3H6 

657.2 

667.0 

0.1451 

6.43 

79.0 

c3 

665.9 

617.4 

0.1538 

6.40 

84.0 

i-C4 

73^-7 

529.1 

0.1825 

6.73 

105-5 

n-Cij. 

765-3 

550-7 

0.1953 

6.73 

101.4 

i-0^ 

829.8 

483-0 

0.2104 

7.021 

117.4 

11-C5 

845.6 

489.5 

0.2387 

7.021 

116.1 

% 

914.2 

440.0 

0.2972 

7.266 

131.6 

CT 

972-3 

396.8 

0.3403 

7.430 

147.5 

C8 

1024.9 

362.1 

0.3992 

7-551 

163.5 

c9 

1073.0 

332.0 

0.4439 

7.649 

179.6 

ClO 

1114.0 

304.0 

0.4869 

7.721 

196.0 

, 
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TABLE  IV  (b) 

IDEAL  GAS  ENTHALPY  EQUATION  COEFFICIENTS 


HA 

HB 

HC 

HD 

Ho 

. 3192124x10^ 

.6956438x10 

-.31038l8xl0"4 

.2350028x10“ 

h2s 

. 3659210x10^ 

.8033766x10 

.6508904x10-3 

. 3250902x10- 

COp 

•  3357740x10^ 

.8440110x10 

. 3040541x10-2 

- . 7897689x10- 

Cl 

•  3683894x10^ 

. 7880800x10 

• 3505719X10-2 

.2446472x10" 

C2H4 

. 3791992XIO4 

.9144806x10 

.78l9394xl0“2 

- . 1522679x10- 

c2 

. 4220126x10^ 

. 1120242x10^ 

.8938123x10-2 

- .8o66l64xlO“ 

C3H6 

. 4714762x10^ 

.1350214x10 

.  1146875x10“ 1 

- . 1797251x10“ 

c3 

4 

0  5068633x10 

.1510799x10 2 

. 15406 39X10"1 

-.2938696x10“ 

0 

1 

•H 

« 602306 7X1011 

. 1999786x10s 

.  2044134x10“^ 1 

-.4146112x10“ 

n-% 

.6654675x10^ 

.2054464xl02 

.  186  5250x10“ 1 

-.3016738*10- 

i-c5 

. 7475643x10^ 

.2465428x10s 

.  2446248x10"  ■ 1 

-.4437345x10“ 

n"c5 

.8039759x10^ 

.2518989x102 

. 2348 587x10" : 1 

-.4174458x10- 

% 

. 9475028x104 

.2,952267x102 

.  2914070x10^ "• 1 

- . 5911897x10“ 

c  7 

.1056589x105 

.3331526XIO2 

.  3278746x10“^ 1 

- .6696126x10- 

c8 

.1226219x105 

.3899065x102 

. 3841118x10" 1 

- . 7945704x10“ 

c9 

. 1366069x105 

. 43736  iBxio2 

. 4301726x10- x 

-.8954763x10“ 

c10 

.1505435x105 

.1^848591x102 

.4756158XIO-1 

-•9858597x10- 

6 

6 

6 

6 

5 

6 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 
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RIGOROUS  PROGRAM 
(Tb.iele-Ged.des ) 

SAMPLE  COMPUTER  OUTPUT 
PROBLEM  7 


1  50060 


I  BLUR 


JOB 


ROMAN 


OBJECT  PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


FEED  CONDITION 


FLASH  T E M P  =  322.482  F 


FRACTION  L IQUI D=  0.82355999E  00 


COMPONENT 

MF  FLASH  LIQUID 

MF  FLASH  VAPOUR 

H2S 

0. 3415632 9E -01 

0.  162484-51E  00 

CC2 

0.28032  1  74E-02 

0.23856973E-01 

METHANE 

0. 88057368E-02 

0.  1  066  6446E  00 

E  T  HAN E 

0.7033 4 184E-02 

0.48968992E-01 

PROPANE 

0 . 32359  I33E-01 

0.  1 022  6t>42E  00 

I-BUFANE 

0. 28730 188E-01 

0.55876445E— 01 

N-BUTANE 

0. 6928148 9E  —  01 

0. 11990155 E  00 

I-PENTANE 

0.7  5739944E— 01 

0. 81837005E-01 

n-pentane 

0. 9085412 6E— 01 

0. 90445974E-01 

hexane 

0.1  7685  982E  00 

0. 103252 3 4E  00 

heptane 

0 . 1  8  9  2  3  9  3  2  E  00 

0. 665  74464E  —  01 

octane 

0. 10229647E  00 

0.2120027 7 E-01 

nonane 

0 . 3891890 8E-01 

0. 73107296E-02 

DEC AN E 

0.  1 2292  193E  00 

0. 93598 90 4E— 02 
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thiel-  geodes  calculation  prgceeoure 

BASIS  ONE  LB-MOLE  FEED 
COLUMN  PRESSURE^  280.000  PSIA 

DISTILLATt  T  E  M  P  =  113. 70S  NO  OF  THEORETICAL  PL  A  TE  S=  15 


REFLUX  RAT  10=  3.34050  DISTILLATE  R A TE=  0.  17600  FEED  PLATE  N0  = 


STAGE 

VAPOUR 

LIQUID 

TEMPERATURE 

1 

0.76393 

0.579/2 

174.317 

2 

0 . 7  55  7  2 

0.52180 

210.928 

3 

0.69780 

0.40331 

250.350 

4 

0.40287 

1.28132 

311.129 

5 

0.45732 

1 .340o6 

318.815 

6 

0.51686 

1.37964 

323. 797 

7 

0.55564 

1 . 40616 

327.286 

8 

0.58216 

1.42549 

329.987 

g 

0.60149 

1.44050 

332.369 

10 

0.61650 

1.45356 

334.885 

1 1 

0.62956 

1 .46581 

338.065 

12 

0.64181 

1.47854 

342.846 

13 

0.65454 

1.48887 

351.038 

14 

0.66487 

1.48208 

366.868 

15 

0.65808 

0. 82400 

401.473 

CONDENSER  HEAT  LOAD  =  0.46606247E  04  BTU/LB  MOLE  FEED 


REBOILER  HEAT  LCAD=  0.80245114E  04  BTU/LB  MOLE  FEED 


j  i  i  : 1  .1  n  -  j  3 1  r 


- 


i  » 

J. 

c  1 

.i  *  J  S 

.MI  -  i  J I 

p 

1  1  i 

i  .  =  .  T  A 

I  • 

1  •  J 

3  1  1  i  >  >1  i  '■  i 

i  i 

.  >  ij  s  v 

JOAT  i 

\ 

\  , 

.  •  ■  \ . 

I  .  . 

\  . 

(  ♦  U  ji 

. 

0  V  v  \ .  ) 

i .  i 

. 

\ 

.  !  ; 

K  Gm  .  ; 

5  \  <-■  t' . 

. 

A  0 1  \  ■  .1 

MM  * 

»  •  ^ 

. 

\ 

. 

.  *"  .  i 

V  1 

V 

L  » 

C '  U  t*'  '  •  1 

V  A {  6.  4  i 

p 

§ 

'  •'  -  1 

:  •  . . .  ... 

• 

»' . 

. 

d 

*  tV  . 

1  <-  »  •-*  •  i 

!  Id. 

.  1 

.  i  • 

•  t 

*  O 

J  i. .Mi 

£  \ 

* .  i  ^ 

*  • 

<!i 

J  \  ,  •  ! 

. 

“  ■]  i  „  I  J  \  1 

. 

.;  i  ■ 

— . 


University  of  Alberta 


COMPOSITIONS  I N  MOLE  FRACTIONS 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I  -BUT  AN  E 

N-BUTANE 

I  —  PENTANE 

N-PENT  ANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


FEED 

0.56  79  7020E-0 I 
0 . 65  I76909E-02 
0.26070760E-01 
0. 14432030E-0 1 
0.44692740E-01 
0 .336  L9650E-0  L 
0 . 7621228 9 E-0 l 
0. 768  1  56 39E-0 1 
0.9078211 9E— 0 1 
0.16387340E  00 
0. 16 7 59780 L  00 
0.8 798882 9 E-01 
0.49813780E-01 
0  •  1 0 2 8 8 6 4 0 E  00 


DISTILLATE 
0. 322665 13E  00 
0. 3 7031450 E-01 
0.  1 48  12580E  00 
0. 81998107F-01 
0.24960140E  00 
0.  714  76532E-0  1 
0.812811 7 3E-01 
0. 486  75204E-02 
0. 27987500E-02 
0.  1480120 9 £-03 
0. 60643534E-05 
0 . 9  9  9  4  5  3  8  5  F  -  0  7 
0. 24365559E-08 
0. 253688  13E-09 


BOTTOMS 

0.80180136F-05 
0. 10435193E-08 
0. 1  126  7345E-09 
0.24324801E-07 
0.92457953E-03 
0.25 4 11998 E-01 
0.  77556777E-01 
0.92183638E-01 
0.10957522E  00 
0. 19884487E  00 
0. 203395 12E  00 
0. 1067830 BE  00 
0.60453920E-01 
0.1 2486276E  00 
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STAGE  NUMBER  1 


COMPONENT 

LIQUID  COMP. 

VAPOUR  COMP. 

H  2  S 

0.655032 7 8E-GI 

0. 196251 40 E  00 

C02 

0. 25975847 E- 02 

0. 19252861E-01 

methane 

0.492583 9 4E-02 

0.47031630E-01 

ETHANE 

0. 14  299785  E  — 0 1 

0.46426468E— 01 

P  ROP ANE 

0.20339680E  00 

0.2  8  964984E  00 

I -butane 

0 . L  9956908  E  00 

0.1 4969980E  00 

N-BU  T  ANE 

0. 35269121 E  00 

0.21532882E  00 

I -PE  NT  ANE 

0.72092292b— 01 

0.24544248E— 01 

N-PENTANE 

0.601 24027  E-0 1 

0.1 7363701E-01 

hexane 

0. 1612 7 719 E— 01 

0.22157908E— 02 

HEPTANE 

0.28957 7 58E-02 

0.20204408E-03 

OCTANE 

0.2415204 9 E-03 

0 .80369459E-05 

N  CN  A  N E 

0.2492271  3E-04 

0.4 275582 5 E-06 

decane 

0. 1 02 1 22  6 1 E- 04 

0. 93267 095E— 07 

COMPONENT 

STAGE  NUMBER  2 

LIQUID  COMP. 

VAPOUR  COMP. 

H2S 

0. 3  5842540E  —  01 

0.12  5  38  649E  00 

CO  2 

0. 1 5997563E-02 

0. 106161906-01 

METHANE 

0.38333574E-02 

0.38270747E-01 

ETHANE 

0. 76655835  E-02 

0.300651006-01 

PROP  ANE 

0.1 2585282E  00 

0.21835136E  00 

I -BUTANE 

0. L  7031261E  00 

0.L6971589E  00 

N-BU T ANE 

0.347196486  00 

0 . 28945297E  00 

I -PENTANE 

0.1 I628684E  00 

0. 5643161 7 E— 01 

N-PENTANE 

0.1 1070470E  00 

0.46771208E— 01 

H  c  X  A  N  E 

0.574421606-01 

0. 12406481E  —  01 

HEPTANE 

0.191 138346-01 

0.22229598E-02 

OCTANE 

0.31209065E-02 

0 . 1853228  LE-03 

NONANE 

0.59283760 E-03 

0. 19122  71  IE-04 

DECANE 

0.434614806-03 

0. 78358  L20E-05 
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COMPONENT 

H2S 

C02 

methane 

ETHANE 

PROPANE 

I -BUT  ANE 

N-BUT  ANE 

I-Pt NT  ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

OECANE 


COMPONENT 

H2S 

C02 

methane 
ethane 
propane 
i -butane 

N-BUTANE 

I -PENT  ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  3 
LIQUID  COMP. 
0. 27294200 E- 01 
0. 14398257E-02 
0. 37805600E-02 
0. 54886410E-02 
0.7  1 8  4  8  2  2  3  E - 0 1 
0.112  1 0520E  00 
0.25  I78783E  00 
0 . 1 3209565E  00 
0. 14029284E  00 
0 . 1 3342890E  00 
0. 78654501E-01 
0.237 39605E-01 
0.7975  7779E-02 
0. 10068261 E-01 


STAGE  NUMBER  4 
LIQUID  COMP. 
0.212231 04 E-01 
0.88  7 763 35 E-03 
0. 19224457E— 02 
0. 31234956E-02 
0.464I3778E-01 
0.65447025E-01 
0.14574474E  00 
0.97127070 E-01 
0 • L0954988E  00 
0. 16  136574E  00 
0.1 49 62009 E  00 
0. 7421 1951E-01 
0.40726659E— 01 
0.826 36264E-01 


VAPOUR  COMP. 

0. 10817096E  00 
0. 105342 3 6E  —  01 
0.40216065E-01 
0.2641 1 778E-01 
0. 157051  72E  00 
0. 14537795E  00 
0. 28012 305E  00 
0.8818  7  564E-0 1 
0.83493588E— 01 
0.42997472E-01 
0.  14297446E— 01 
0. 23344401E-02 
0.44346678E-03 
0. 32512767E-03 


VAPOUR  COMP. 
0.97  136598E-01 
0.71721487E-02 
0.2i  786634E-01 
0 . 19873852E-01 
0.13620083E  00 
0.11899738E  00 
0. 235088  18E  00 
0.98531069E-01 
0 . 1 0206229E  00 
0. 88418897E-01 
0. 49584478E-01 
0 . 14479904E-0 1 
0.4  7823560E-02 
0. 59795482E-02 
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COMPONENT 

H2S 

C02 

METHANE 
E  T  H  A  N  E 
PROPANE 
I-BUTANE 
N-BUTANE 
I -PENTANE 
N-PENT ANE 
HEXANE 
HEPTANE 
OCTANE 
NGN An E 
DECANE 


STAGE  NUMBER  5 
LIQUID  COMP. 
0.  12883362E-01 
0.3093 1 122E-03 
0. 48567 316E-03 
0. i 3  58456 1 E— 02 
0.4293  5  38  7  E  —  0 1 
0. 7  34496 19  E—0 1 
0.1 6084609E  00 
0 *996505 52 E- 01 
0.11 163305 E  00 
0. 15979601E  00 
0. 146  I  2663 E  00 
0*71 8  72440E-0 1 
0. 39249912E-01 
0. 7940353 6 E— 01 


VAPOUR  COMP. 

0. 594550216-01 
0.248761 92E-02 
0.53669509E-02 
0.8  7524087E-02 
0.12839139E  00 
0.13759773E  00 
0.268635656  00 
0.106044446  00 
0.1 095  L454E  00 
0.938423116-01 
0.527293616-01 
0. 15524762E-01 
0.51313645E-02 
0.65506208E-0,' 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I— BU TANE 

N-BOTANE 

I-PENTANE 

N-PENT ANE 

HEXANE 

HEPTANE 

octane 

NONANE 

DECANE 


STAGE  NUMBER  6 
LIQUID  COMP. 
0. 72061 1 176-02 
0. 10004646E-03 
0.115 145256-03 
0 . 542584556-03 
0 . 36  3 3410 3 E  —  01 
0. 7  86406396-01 
0.172101126  00 
0. 101 79552 E  00 
0.113479076  00 
0. 15916030 E  00 
0.14417139E  00 
0.705062 95 E-01 
0 . 38374572E-01 
0.7  74  73  127  6-01 


VAPOUR  COMP. 
0.3341 1397E-01 
0.30247100E— 03 
0. 1260031 7E-02 
0. 35243528E-02 
0. 10991799E  00 
0. 15004308E  00 
0.29364878E  00 
0.111561986  00 
0.114921356  00 
0.975492076-01 
0.548305836-01 
0. 162176346-01 
0. 54460274E-02 
0.6931 1545E-02 
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COMPONENT 

H2S 

C02 

METHANE 

t  TH  A  N E 

PROPANE 

I-BUTANE 

N-BU  I'  ANE 

I— PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

decane 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -butane 

N-BU TANE 
I -PEN  T  ANE 
N-PENTANE 
HEXANE 
HEPTANE 
OCTANE 
NONANE 
DEC A ME 


STAGE  NUMBER 

LIQUID  COMP. 
0. 384506246-0 2 
0.310L8L08E-04 
0.2635  7472 E  — 04 
0.206  L5222E-03 
0. 29131918 E— 01 
0.8 15643286—01 
0. 18038391b  00 
0 . 1038 0404 E  00 
0.115266 3 5£  00 
0. 159023 52 E  00 
0.14302176E  00 
0. 69651026 E— 01 
0.37815565E-0I 
0.76228991E-01 


STAGE  NUMBER  8 
LIQUID  COMP. 
0. 19898616E  —  02 
0.93596964E  —  05 
0. 59044398E— 05 
0.757  789 15  E— 04 
0.22492434E-01 
0.82544296E-01 
0. 1861 191 OE  00 
0.105946376  00 
0. 1 1 725342 E  00 
0. 15928 7 39 E  00 
0.1A236981E  00 
0 . 6  9  0  9  4  1  6  2  E  —  0 1 
0.3  74  3  7731 E-01 
0. 753  74 387 E- 01 


VAPOUR  COMP. 

0. i 788181  IE-01 
0.24843423E— 03 
0. 28594301E-03 
0. 13472239E-02 
0. 88848301E-01 
0.1 5758003E  00 
0.3 1 230964E  00 
0.116050216  00 
0.  11926821E  00 
0.1 0030998E  00 
0. 56347281E-01 
0 . 1671 1457E-01 
0.56334850E-02 
0. 72004294E-02 


VAPOUR  COMP. 
0.927591 74E-02 
0. 74921441E-04 
0.636746286-04 
0. 497871246-03 
0.690524836-01 
0. 16103 1 99E  00 
0.325901736  00 
0 . L202493  76  00 
0. 12331982E  00 
0.10267184E  00 
0. 575892816-01 
0.171076636-01 
0.578190576-02 
0.741220496-02 
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COMPONENT 

H2S 

C02 

METHANE 

ethane 

PROPANE 

I -BUT  ANE 

N-BUT  ANE 

I -PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -BUT  ANE 

N-BU  r ANE 

I -PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  9 
LIQUID  COMP. 

0 . i 006992  IE-02 
0.27 705894E-05 
0. 130313076-05 
0.271 73423E-04 
0 .168430846-01 
0.81 702007E-0I 
0.18927685E  00 
0 . 1 08508 36E  00 
0. I 1 9 7 6548  E  00 
0.I6006817E  00 
0. 142 L 2057 E  00 
0.68740999E-01 
0.37 17559 1 £-01 
0.74760665E-0I 


STAGE  NUMBER  10 
LI  QUID  COMP. 
0.5C001608E-03 
0.807  7497IE-06 
0. 284 4 816 9 E  —  06 
0. 954 4 5284 E -05 
0. 12251  153E-01 
0.78987711 E-01 
0.189351L4E  00 
0. Ill  7 71 00 E  00 
0. 123195 9 3E  00 
0.161 75054E  00 
0.14234314E  00 
0.68556071E-01 
0.369914646-01 
0.74291218E-01 


VAPOUR  COMP. 
0.470451 17E-02 
0.22 1 79 504 E- 04 
0. 13993341E-04 
0. 1 7953225E-03 
0. 52032270E-01 
0 • 16Q79184E  00 
0. 33479929E  00 
0. 12479537E  00 
0.12776842E  00 
0. 1051 1418E  00 
0.587994 3 5E-01 
0. 1748  2  5  70 E -0 1 
0. 591965  71E-02 
0. 7  6064 74 3 E  —  02 


VAPOUR  COMP. 
0.23420499E-02 
0.647200036-05 
0.30447415E-05 
0. 634637426-04 
0.381 14954E-01 
0. 15692  0 60 E  00 
0. 3385605  IE  00 
0. L3032219E  00 
0.13338137E  00 
0. 10825542E  00 
0.60248732E— 01 
0.1  791  19916-01 
0 • 6073248 1 E— 02 
0.781955916-02 
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COMPONENT 
H2  S 
C02 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUT ANE 

I -PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NCNANE 

DECANE 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I -PENTANE 

N-PENT ANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  11 
LIQUID  COMP. 
0.24339492E-03 
0.232  16031 E-06 
0.6  155  1  169E-07 
0.32 /92231E-05 
0.86210086E-02 
0. 74 148463E-01 
0.1851 5406 E  00 
0.L1583360E  00 
0.12786422E  00 
0. 16 5 213 02 E  00 
0.1 43457 32 E  00 
0.686 16763E— 01 
0.36894025E-01 
0  .  7  3  9  5  0  5  8  5  E  -  0 1 


STAGE  NUMBER  12 
LIQUID  COMP. 
0. 1  15<t6338E-03 
0.65630023E-07 
0.  1  3206506E-07 
0. 1095316QE-05 
0. 5  8062  74  IE-02 
0.66763011 E-01 
0.17469198E  00 
0.12016253E  00 
0.13334B91E  00 
0. 1 7211 118 E  00 
0. 14672597E  00 
0.69272212E-01 
0. 3697706 3 E— 01 
0. 73827231 E-0 1 


\/APOUR  COMP. 

0. 1 1439964E-02 
0. 1863671 3E-05 
0.656731906-06 
0.22004361E-04 
0.27075395E-01 
0.14910655E  00 
0.33566167E  00 
0.137405946  00 
0. 14102127E  00 
0. 1 1320484E  00 
0 .62445693E-01 
0. 1 8529877E-01 
0.628741 78E-02 
0.8111 52  55E— 02 


VAPOUk  COMP. 

0. 54565762E-03 
0.52895624E-06 
0 . 1404541  3 E-06 
0. 745875^96-05 
0. 18503858E-01 
0.13673028E  00 
0.32331 740E  00 
0. L4620697E  00 
0.  15135475E  00 
0.12204422b  00 
0.66513891E— 01 
0. 1  9620848E-0 1 
0.66489632E-02 
0.85919485E— 02 
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University  of  Alberta 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I— BUTANE 

N-BUTANE 

I -PENT  ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -BO  T  ANE 

N-BUTANE 

I -PENT  ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  13 
LIQUID  COMP. 
0.525747 89 E-04 
0. I 8076029E-07 
0.280316I4E-0S 
0 . 34959549E-06 
0.365/7213E-02 
0. 56266314E-01 
0.15499236E  00 
0.1224  3 50 IE  00 
0.1 380  7954E  00 
0 . 1 8452536E  00 
0  .  I  5;>  5 5663  E  00 
0.7 19736  16E-01 
0.37 791 744 E -01 
0.  74668765E  —  01 


STAGE  NUMBER  14 
LIQUID  COMP. 
0.22232415E-04 
0.47 I64389E-08 
0. 58277717E-09 
0. 1 02^ 7298 E- 06 
0. 205665 16E-02 
0.42281 l 18E-0I 
0. I2283577E  00 
0.1 1661026E  00 
0.13461 193 E  00 
0.20047ol6E  00 
0. 1 7 59068 7 E  00 
0.8 1602 562 E-01 
0.421 18216E-01 
0.8 1478 108E-01 


VAPOUR  COMP. 
0.25075231E-03 
0.  1469  5  387E-06 
0. 29694486E-07 
0.24437887E— 05 
0. 11952862E-01 
0.11882813E  00 
0.2969933 7 E  00 
0. 1553900 IE  00 
0. 16372  627E  00 
0.  1 3845146E  00 
0. 75376950E-01 
0.22044796E-01 
0 . 74191 396E-02 
0.95726016E-02 


VAPOUR  COMP. 

0. 1078  02  75E-03 
0. 39187444E-07 
0.61382779E-08 
0. 75273973E-06 
0. 70453301E-02 
0.94508717E— 01 
0.25096805E  00 
0.L5992889E  00 
0.1 7340737E  00 
0. 16677716E  00 
0.9626  7240E-01 
0.28832  771 E-0 1 
0.97059256E  —  02 
0.  1  246263  IE  — 01 
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University  of  Alberta 


COMPONENT 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I -PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  15 
LIQUID  COMP. 
0.801 80136E-05 
0. 104  35 193E-08 
0. 1 1267345E-09 
0. 24324801 E-07 
0.92457953E-03 
0.2541  1998  E-Oi 
0 . 7 7556776E-01 
0.92  183636E-01 
0.1 0957522E  00 
0. 19884487E  00 
0.20339512E  00 
0. 106 78 308 E  00 
0.60453920E-01 
0.12486276E  00 


VAPOUR  COMP. 
0.40030788E-04 
0.93150706E-08 
0. 1 1714393E-08 
0. 19986694E-06 
0.34741222E-02 
0.63403136 E— 01 
0.  1  /952925E  00 
0.14719439E  00 
0. 1639598  IE  00 
0.202518646  00 
0 • 14149096E  00 
0. 50076382E-01 
0. 19162  126E-01 
0.2/16 1 632  E-0 1 
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SHORT  CUT  DESIGN  PROGRAM 
INCLUDING  (MODIFIED  BERGAMOT'S)  RIGOROUS 
CALCULATI ORAL  PROCEDURE  CHECK 

SAMPLE  COMPUTER  OUTPUT 
PROBLEM  6 


’ 


1  50060 


I  BL  UK 


JOB 


ROMAN 


OBJECT  PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


FEED  CONDITION 


FLASH  T  E  M  P  =  305.  1  30  F 

COMPONENT  ME 

NITROGEN 
H2S 
C02 

METHANE 

ETHANE 

PROPANE 

I  -BUT  ANE 

N- BUTANE 

I  — PENT  ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


FRACTION  L  I  GUI D  = 

flash  liquid 
0. 75538 016E- 04 
0. 39793 104E-01 
0. 39669  332E-02 
0.  L4135402E-01 
0. 8333162 5E -02 
0. 3 103  3  582E-0 1 
0.25989316b-0i 
0.621088 04 E-01 
0 . 700 69 02 2E -01 
0.83734698E— 01 
0.1  7091  1 6  It  00 
0. 19049 6 65E  00 
0.1 06 35 3 3  IE  00 
0. 62086809E-01 
0.13091 207E  00 


0.64258000E  00 

MF  FLASH  VAPUUR 

0. 20621079E-02 
0. 16341275E  00 
0. 33529188E-01 
0.  175695 04E  00 
0. 55350852E-01 
0.92562  757E-01 
0 . 46684071 E-0 1 
0. 98232 735E-01 
0. 6743621  IE-01 
0. 73636853E-01 
0. 85037760E-01 
0. 5531 9548E-01 
0. 1 7584170 E-01 
0. 59595653E-02 
0. 74964221E-02 
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SHORT  CUT  M t THOD 


BASIS  QUt  LB-MOLE  FEED 
SHORTCUT  MINIMUM  ft  b  F  L  U  X  =  2.2  3  32 

SHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  TOTAL  REFLUX=  7.8895 

shortcut  number  of  theoretical  plates  at  operating  reflux=  14.4444 

DISTILLATE  T EMP=  135.382  NO  OF  THEORETICAL  PLATES=  15 

BOTTOMS  TEMP=  426.636  F  COLUMN  PRESSURE^  280.000  PSIA 

REFLUX  RATI 0=  3.29928  DISTILLATE  R A T E  =  0.35543  FEED  PLATE  N0  = 
CONDENSER  HEAT  L 0 A D  =  0.90611901b  04  B  TU/LB  MOLE  FEED 

REBOILER  HEAT  LO AD=  0.13668382E  05  BTU/LB  .MOLE  FEED 


COMPOSITIONS  IN  MULE  FRACTIONS 


COMPONENT 
NITROGEN 
H2S 
CO  2 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I-PENT  ANE 

N- PENTANE- 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


FEED 

0. 78554594 E -0  3 
0.91  123329E-01 
0. 14532600E-01 
0  .  7187  7454E-0 1 
0. 25137470 E— 01 
0. 53024352 E  —  01 
0. 33 3 8570 3 E  —  01 
0.7501963  7E-0 1 
0.69128043E-01 
0.80125 6 86E-01 
0 . 1402  1995E  00 
0. 1421838LE  00 
0 .7462606 4 E-01 
0 . 42026  70BE-0 1 
0. 86802826E— 01 


DISTILLATE 
0. 22101032 E—  02 
0. 2  56  364  72 E  00 
0. 40886903E-0 1 
0.20222444E  00 
0. 7072 3165E-01 
0. 14894263E  00 
0. 352011 08 E— 01 
0.  17680626E  00 
0.  1  10  505 16E-U 1 
0. 54972451E-02 
0.89782863E-04 
0. 1 1641031E-05 
0. 591  328  12E-08 
0.431 70936E-10 
0.  14235957E-1 1 


BOTTOMS 

0.  15728879E-13 
0.40003616E-05 
0.362441 5 3 E-08 
0. 1 04649  7 1 E -08 
0.  760047  79E-07 
0. 13197852E-03 
0.48130490E-02 
0. 188901 73E-01 
0.10115383E  00 
0. 12127817E  00 
0.21749215E  00 
0.220587 82E  00 
0.11 577847E  00 
0- 65201 563E -01 
0.  1  3466865E  00 
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BERGAM  I  J I  CALCULATION  PRUCEEDURE 


BASIS  ONE  LB-MOLE  FEED 


COLUMN  PRE$SURE=  280.000  PSIA 


DISTILLATE  T  E  M  P  =  131.459  NO  OF  THEORETICAL  PL  A  TE  S  =  15 


REFLUX  RAT  10  = 

3.29928  DISTILLATE 

R  A  T  E=  0.35543 

FEED  PLATE  N0= 

STAGE 

VAPOUR 

LIQUID 

ThMPERATURE 

1 

1.52811 

1.28770 

187.740 

2 

1 .64313 

1. 31543 

206.022 

3 

1 . 6  7  0  8  6 

1.29709 

215.406 

4 

1.65252 

1.26222 

223.469 

5 

1.61765 

L. 20442 

232.883 

6 

1.65985 

1.11155 

245.637 

7 

l  .466  9 8 

1.31711 

265.998 

8 

1.31513 

1 .77443 

318.427 

9 

1. 12987 

1.86035 

331.450 

10 

1.21579 

1 . 90269 

340.685 

1  I 

1 .258  12 

1 . 92634 

349.363 

12 

1.2819b 

1.93317 

359.168 

L  3 

1.28860 

1.91329 

372.183 

14 

1.26872 

1 . 84508 

392.351 

15 

1 .20052 

0.64457 

427.841 

CONDENSER  HEAT  LOAD=  0.95240413E  04  BTU/LB  MOLE  FEED 


REBOILER  HEAT  L 0 A D  =  0.13369079E  05  BTU/LB  MOLE  FEED 
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COMPOSITIONS  IN  MOLE  F PACT  IONS 


C CMP ONE N F 
NITROGEN 
H2S 
C02 

METHANE 

ETHANE 

PROPANE 

I-BUTANE 

n-butane 

i-pentane 

N-PeNTANE 

HEXANE 

HEPTANE- 

OCTANE 

nonane 

PECANE 


TEED 

0 .78554594E-03 
0.91123329b  —  01 
0 . 14532 6 COE-O  1 
0. 71877454E-01 
0*2513747 OE -01 
0. 53024352E-01 
0*3 3385703 E- 01 
0.  7  501963  7E— 0 1 
0 .69128043E-01 
0*801256866—01 
0*140219956  00 
0.14218381b  00 
0 . 7  4  6  2  6  8  6  4  E  —  0  1 
0 .420267086-0 1 
0 . 8  6  8  0  2  8  2  6  E  -  0  1 


DISTILLATE 
0. 221009146-02 
0.25636618b  00 
0. 40886685E-01 
0. 20222335E  00 
0.  7072288  LE-0  1 
0.14910239b  00 
0.9055 064 7 E-01 
0. 183411 16E  OG 
C.  34607292E— 02 
0.  1 06293  55E-02 
0.298498736-05 
0.  115303996-07 
0. 16064304E- 10 
0. 4207  7769E-13 
0. 52417237E-15 


BOTTOMS 

0. 774d7824E-13 
0. 243556736-05 
0.29562642E-08 
0. 172101246-08 
0.228366656-07 
0.434431236-04 
0. 186288136-02 
0. 152486296-01 
0. 105339386  00 
0.123723766  00 
0.217540686  00 
0.220d0913E  00 
0. I  15/788 3 E  00 
0.65201 7 60 E-01 
0.13466906E  00 
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University  of  Alberta 


COMPONENT 

NITROGEN 

H2S 

C02 

METHANE 
ETHANE 
PROPANE 
I -BUTANE 
N  — BU  T  AN E 
I -PENTANE 
N-PENTANE 
HEXANE 
HEPT ANE 
OCTANE 
NONANE 
DECANE 


COMPONENT 

NITROGEN 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

i-butane 

N-BUTANE 

I -PENTANE 

N-PENTANE 

hexane 

HEPTANE 
OCTANE 
NONANE 
D  E  C  A  ;\j  E 


STAGE  NUMBER  1 
LIQUID  COMP. 
0.21487325E-04 
0. 4463097 9 E— 01 
0. 26036259 E-02 
0.6o754676£  —  02 
0. 10900548E-01 
0. 101677 13E  00 
0. 1 92 8 32 96 E  00 
0.5891 5475E  00 
0. 357h 1210E-01 
0. 1 55I5567E-01 
0.20306793E-03 
0 . 32 1 57 177E-05 
0.211041 25E-07 
0.22047829E-09 
0. 1 024 3 7 64 E  - 10 


STAGE  NUMBER  2 
LIQUID  COMP. 
0. 19  9  7  08  94  E— 04 
0.260523 22 E-01 
0. 16  7  843 56E— 02 
0.50892366E-02 
0.6 36 5284 8 E-02 
0 . 67 198594E-01 
0.17735317E  00 
0.62412344E  00 
0.61069727E  —  01 
0.3026 7 941E-01 
0.75947230E-03 
U.221 34297E-04 
0. 28  35653 6 E  —  06 
0.541 10596E-08 
0.447061 1 5E-09 


VAPOUR  COMP. 

0. 56640624E-03 
0. 14376647E  00 
0. 160525 9 5E-01 
0.63908 168 E— 01 
0.37594818E-01 
0.15148282E  00 
0. 16144204E  00 
0.4UD84559E  00 
0. 14U76691E-01 
0.52304085E— 02 
0.33740459E-04 
0.2794 7 593E-06 
0.902 9 2361 E-09 
0.50002252E— 11 
0. 12681611E-12 


VAPOUR  COMP. 
0.4949 16456-03 
0.90432599E-01 
0. 10884847E-01 
0.48975520E-01 
0.23841050E-01 
0.  11 193595E  00 
0. 17070770E  00 
0.50138609E  00 
0.287897876-01 
0. 12389237E-01 
0.  1D978688E-03 
0.25226021E-05 
0. 16542449E-07 
0. 1  7279450E-09 
0.80279914E-1 1 
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University  of  Alberta 


COMPONENT 

N  I  TKUGE1M 
H2S 
C02 

METHANE 
ETHANE 
PRUPAIME 
I  —  BU TANE 
N-BU  FANE 
I -PENTANE 
N-PEMTANE 
HEXANE 
HEPT  ANE 

octane 

NONANE 
D  E  C  A  N  E 


COMPONENT 

NITROGEN 

H2S 

C02 

METHANE 
ETHANE 
PROPANE 
I -BUT ANE 
N-BUT ANE 
I -PENTANE 
N-PENTANE 
HEXANE 
HEPT  ANE 
OCTANE 
NONANE 
DECAN t 


STAGE  NUMBER  3 
LIQUID  COMP. 
0. 1 999  4702  E— 04 
0. 20 9 12458 E- 01 
0. 1 5083376E-02 
0.48467865E-02 
0.5  I201534E-02 
0.4 805083 7 E-01 
0. 154431  7 BE  00 
0. 613  50  1 00 E  00 
0.9521  3876E-01 
0.53701729E-01 
0.25542959 E- 02 
0. 13532873E-03 
0 . 3  3298935E-05 
0. 1 145  8647  E  —  06 
0. 166325 3 7E-07 


STAGE  NUMBER  4 
LIQUID  COMP. 
0. 2 0 39 8 3 03 E- 04 
0. 194 39592 E-Oi 
0 . 1 47  28  375  E -02 
0. 482 3 5928 E— 02 
0.47155355E-02 
0.378071 59 E-01 
0. 1 2952490E  00 
0.567715836  00 
0. 137 7 3368 E  00 
0.88070631E-01 
0. 78675571E-02 
0.75058038E-03 
0.35036156E-04 
0.2155252 6 E-05 
0. 54506098E-06 


VAPOUR  COMP. 
0.48586648E— 03 
0. 75046068E-01 
0. 10019050E-01 
0.47024791E-01 
0.20055819E-01 
0.8462  L66IE-01 
0.1 5888802E  00 
0.5303724 7 E  00 
0.488 l 4 794 E-01 
0.24055277E— 01 
0.59854  783E-03 
0. 17428209E-04 
0. 223247056-06 
0.42599954E-08 
0.351959726-09 


VAPOUR  COMP. 
0.49105559E— 03 
0.71555446E  —  01 
0 . 9  9  7  8 1  0  0  3  E  —  0  2 
0.A7299881E-01 
0. 19230434E-01 
0.697856916—01 
0. 140691796  00 
0 . 52099434E  00 
0. 754789846-01 
0.42 379 8 18 E-01 
0.20055426E-02 
0. 10622378E-03 
0.26136808E-05 
0. 899404A2E-07 
0. 1 3055098E-07 
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University  of  Alberta 


COMPONENT 

N ITRGGEN 
H2S 
CC2 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUT ANE 

I  -PE  IT  AN  E 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


COMPONENT 

NITROGEN 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I-BU  TANE 

N-BUTANE 

I -PE NT ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

nonane 

DECANE 


STAGE  NUMBER  5 
LIQUID  COMP. 
0. 209634926-04 
0 . 18883944 E-01 
0. 146249 1 2  E— 02 
0. 48429988 E-02 
0.44904243E-02 
0.31942534  E-01 
0  -  10468871E  00 
0 • 49  2058  98 E  00 
0.  183  34600E  00 
0. 1 3222633E  00 
0 .2 19  31474E-01 
0 . 37284258E-02 
0.325749566-03 
0 . 35498662 £-04 
0. 15505879 E—  04 


STAGE  NUMBER  6 
LIQUID  COMP. 
0.2  I  86402 9 E- 04 
0. 1 8o0  1929E-0I 
0. 1 4658434E-02 
0.49042629E— 02 
0.42865252E-02 
0 . 2  800  39  72E-01 
0.81015174E-01 
0. 39302432 E  00 
0.21884111E  00 
0.17680315b  00 
0.53585488E-01 
0. 160150 09 E-01 
0.2573  7 780E-02 
0.4911742 7E-03 
0. 36645 190E-03 


VAPOUR  COMP. 
0.50152426E-03 
0. 7 1497 8  L6E  — 01 
0. 10132967E-01 
0.48196863E— 01 
0. 192188o 9 E-01 
0.622612836-01 
0.12096136E  00 
0.48327 5 25E  00 
0 . 10824642b  00 
0.68953038E-01 
0.613952 9 6E-02 
0.585663136-03 
0.2  73  379096-04 
0. 1681 6940E-05 
0.42529854E-06 


VAPOUR  COMP. 

0. 519789416-03 
0. 72997865E-01 
0. 10445890E— 01 
0.493191G0E— 01 
0.  19582492E— 01 
0. 586391 78E-01 
0.10  146  7  i  3E  00 
0.421 72 890E  00 
0.1 4235642E  00 
0. 10233876E  00 
0 . 169347356-01 
0.28  /88501E-02 
0.25152260E-03 
0.2  7409754E-04 
0. 1  1972630E-04 


— 


•  S' 

-  '  •  ,  • 

• 

— 

I J 

1 

i  -  ■  ;  > 

i  \  .  c< 

f . 

!  -  -  w  •:  i 

i . 

■  - 

'  I . 

. 

• 

- 

A  . 

:  •  -  1 

. 

\  -  : 

. 

:  - 

» 

i  - 

s  £  C1  ii  A ' 

-  . 

d  A9!)flq 

:  V  ■  ■  ■  • 

i  '  -  1 

,\  # 

- 

\  \  r  A 

<  i  .  0 

1 

1  .i: 

i  '  -  ; 

.  -  •:  ■  • 

. 

I  . 

- 

. 

i.  - 

. 

-  >  ' 

. 

- 

.s  . 

- 

• 

- 

1  ) 

— 

-  ••  f 

— 

•  1  ■  •  i  j  -■  J 

• 

—  i  -  '  1 

* 

— 

• 

JOI  i 

A  T  1 

. 

1  - 

l  i 

* 

- 

• 

- 

• 

• 

- 

• 

h  r  - 

;  ~  •  *.  i 

- 

• 

•T  - 

• 

;  - 

0  0 

M  4  M 

■4  •*  i  '  0  +'  1  1 

« 

• 

-  i 

. 

1  .  .  . 

• 

*  i 

0  4  ^ A  1 

• 

• 

i '  ■  -  I 

)\  '1 

. 

• 

- 

* 

•■1 

-  i 

~  i 

i  - 

'•  'i  S 

• 

i 

.iT30 

; 

• 

- 

■  tM  i  i 

•  1 

-  i  \ 

0 

- 

. 

»,«**«*« 


University  of  Alberta 


7 


COMPONENT 

NITROGEN 

H25 

C02 

methane 

ETHANE 
PROPANE 
I -BUTANE 
N-BUTANE 
I -PENTANE 
N-PENTANE 

hexane 

heptane 

OCTANE 

NONANE 

DECANE 


COMPONENT 

NITROGEN 

H2S 

C02 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I  —  P  E  N  T  A  N  E 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER 

LIQUID  COMP. 
0. 2332^7 46E- 04 
0.184 L 6 796 E- 01 
0. 14828494E— 02 
0.501 19 132 E-02 
0.401 92353 E-02 
0.245 16366E-01 
0. 588240 50 E- 01 
0.2787083 4 E  00 
0.22  11  t>604E  00 
0. 19802890E  00 
0. 1070319 9 E  00 
0.551 200  18E-0 1 
0.1  587581  IE-01 
0.52 162020E-02 
0.65 3 81628 E-02 


STAGE  NUMBER  8 
LIQUID  COMP. 
0. 28263 3 55 E- 05 
0.829108 64 E-02 
0.4 3524196E-03 
0.11 162539E-02 
0. 12945879E-02 
0. 1 3557472E-01 
0.38225476E-01 
0.18288284E  00 
0.192 12985E  00 
0 . 18223688E  00 
0.  141  8  62  04  E  00 
0. 109251 49 E  00 
0.5012 4 648E-01 
0. 26324284 E- 01 
0.522650 34 E- 01 


VAPOUR  COMP. 
0.55205087E-03 
0. 76209964E-01 
0. L 1017141E-01 
0.527 1 28 17E-01 
0.20383428E-01 
0.5  7344  9  75E-0 1 
0.S3325529E-01 
0. 34223703E  00 
0 . 1 6665647E  00 
0.1 3422295E  00 
0.40602953E-01 
0. 12134726E-01 
0.19501759E-02 
0.372167 3 8E-03 
0.27766406E-03 


VAPOUR  COMP. 
0.6031 1 814E-04 
0.37903157E— 01 
0. 34244913E-02 
0.  U932330E-01 
0.80997919E-02 
0.3971987 1 E— 0 1 
0. 70728858E-01 
0 . 30204  646E  00 
0.20409  3  t>OE  00 
0.1  7856803E  00 
0.84051 134E-01 
0.40147470E— 01 
0. 11114205E-01 
0. 36022437E-02 
0.45080744E— 02 
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COMPONENT 

NITROGEN 

H2S 

CG2 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-8UTANE 

I-PENTANE 

N-PENTANE 

HEXANE 

HEPT ANE 

OCTANE 

nonane 

DECANE 


STAGE  NUMBER  9 
LIQUID  COMP. 
0. 220469206-06 
0.28 148080E-02 
0.869 10395E-04 
0. 167638 12 E-03 
0.313030246-03 
0.700323696-02 
0. 303274326-01 
0. 15928225E  00 
0.21 13 184 IE  00 
0. 2032 3752 E  00 
0. 15022185E  00 
0.1 09872 50 E  00 
0.4 9278020c -01 
0.255912046-01 
0. 504829686-01 


VAPOUR  C  0  M P . 
0.44389781E-05 
0. L3020401E-01 
0. 68357940E-03 
0. I 7531619E-02 
0.203323 7 2E-02 
0.21268269E-01 
0. 58973 1 43E— 0 1 
0.27853109E  00 
0.24165051E  00 
0.21562313E  00 
0.96681545E-01 
0.45724 7 79E-01 
0. L2663874E-01 
0.41416833E-02 
0. 52471815E-02 


CCMPONEN I 

NITROGEN 
H2S 
CO  2 

METHANE 

ETHANE 

PROPANE 

I  —  BU 1 ANE 

N-BUT ANE 

I -PENT ANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


S  TAGE  NUMBER  10 
LIQUID  COMP. 
0. 1732541 6 E-07 
0.92325273E-03 
0. 1 684  5763  E— 04 
0.24  f 92 1 80 b— 04 
0 . 72842 927E-04 
0 . 34298453E-C2 
0.22570427E-01 
0. L2958267E  00 
0. 2 22 70001 E  00 
0.219371586  00 
0.1 6 294077 E  00 
0.113409836  00 
0.495822786-01 
0.25456397E-0I 
0.459184666-01 


VAPOUR  COMP. 
0.337359876-06 
0 .430590166-02 
0. 13298791E-03 
0.2565  L  737E-03 
0.48  207481E  —  03 
0.106932546-01 
0.45419071E  —  01 
0 . 2  3 564 753 1  00 
0.26750750E  00 
0.245394976  00 
0.1  145 3003E  00 
0.511715816-01 
0.14019912E— 01 
0.45900572E-02 
0. 58482909E-02 
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CCMP0NEN1 

NITROGEN 
H2S 
CO  2 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I -PENT  ANE 

N— PE  NT AN  E 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


COMPONENT 

NITROGEN 
H2S 
CO  2 

METHANE 

ETHANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I -PENTANE 

N-PENTANE 

H  E  X  A  N  E 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  II 
LIQUID  COMP. 

0 . 138 l 7994 E- 08 
0. 296777 L3E-03 
0.32057851E-05 
0. 36489367E-05 
0. I622223I E-04 
0 . 161 54872E-02 
0. 159  7  6040  E  — 0 1 
0.99S19166E— 01 
0.22526080E  00 
0.228777  54E  00 
0. 18083364 E  00 
0 . 1  2  0  7  4 0  3  3  E  00 
0.50955392E-01 
0.25  708634E-01 
0.4999 3072 E-0 I 


STAGE  NUMBER  12 
LIQUID  COMP. 
0.1  1  243005E— 09 
0.93  7978 12 E-04 
0. 59972617 E-06 
0. 53663290E-06 
0. 348 13751E-05 
0. 7314 8 589 E -03 
0. 10729776E-01 
0. 72590796E-01 
0.21675207E  00 
0. 22798607  E  00 
0.20393703E  00 
0.1 348649  L  E  00 
0. 54575715E-01 
0.26691399E— 01 
0. 5 1042349E-01 


VAPOUR  COMP. 
0.26200788b— 07 
0. 1 3949662E— 02 
0.25473 94 4E-04 
0 • 37491 762 E— 04 
0. i 1014698E-03 
0. 51646212E-02 
0.33178425E-01 
0.18815337E  00 
0.28282115E  00 
0. 26836975E  00 
0.1 3497  OBOE  00 
0.53504335E-01 
0. 15671307E-01 
0. 509576U4E-02 
0.65026858E-02 


VAPOUR  COMP. 
0.20764423E-08 
0.44475356E— 03 
0.4815966  IE  — 05 
0.54825274E— 05 
0. 24366266E-04 
0.24058 122E-02 
0.23071249E-01 
0. 1423 3 5 92 E  00 
0.2855497 6 E  00 
0.2S159198E  00 
0. 16237 965E  00 
0.70342705E-01 
0. 18366245E-01 
0.58539726E-02 
0.74233101E-02 
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University  of  Alberto 


COMPONENT 

N I TRUGEN 
H2S 
CG2 

METHANE 
£  T  H  A  N  E 
PROPANE 
I-BUT ANE 
N-BUTANE 
I -PENTANE 
N-PENTANE 
HEXANE 
H  E  P  T ANE 
OCTANE 
NONANE 
DECANE 


COMPONENT 

NITROGEN 

H2S 

COP. 

METHANE 

E  THANE 

PROPANE 

I -BUTANE 

N-BUTANE 

I -PENTANE 

N-PENTANE 

HEXANE 

HEPTANE 

OCTANE 

NONANE 

DECANE 


STAGE  NUMBER  ]} 
LIQUID  COMP. 
0.94 186764E-11 
0.29088400E-04 
0. I  0975901 E-06 
0.79I357I8E-07 
0. 71428088 E-09 
0. 3151 7014E-03 
0.674667226-02 
0.491 14735E-01 
0.1 946 1 283 E  00 
0.21251373E  00 
0. 2 2 82 81 59 E  00 
0.15979 4 11E  00 
0.6361 7480E-01 
0. 298515426-01 
0 .55122160  E-0 1 


STAGE  NUMBER  14 
LIQUID  COMP. 
0.82648584E-12 
0.B74  68415E  —  05 
0.  1  9250339E-07 
0. 1  17  318  57  E-07 
0. 1 36879426-06 
0.125766096-03 
0. 38502814 E- 02 
0.29905413L-01 
0.1 5694409 E  00 
0.17  793374E  00 
0 . 24082 771 E  00 
0.19502998E  00 
0.83720652 E-01 
0. 39781761 E- 01 
0.718717 06 E-01 


VAPOUR  COMP. 

0. 193620766-09 
0.  13949067E-03 
0.898187 7 8E-06 
0.80415754E-06 
0.321  10887E-05 
0.  107559566-02 
0 .15  1643926-01 
0 . 10126925E  00 
0.27247272E  00 
0 . 2801 3063E  00 
0 . 1 97 1 3345E  00 
0.9 199 1791 E— 01 
0.23966295E-01 
0. 7431 2692E-02 
0.92182507E-02 


VAPOUR  COMP. 

0. 141644766—10 
0.42629395E-04 
0.  16402024E-06 
0. 1  1846633E-09 
0. 10655698E— 05 
0. 433221316-03 
0.922788666— 02 
0.66320440E-01 
0.23996828E  00 
0.25762356E  00 
0.2337  3  8526  00 
0. 12890715E  00 
0 .371 L6859E-01 
0. 1  189183 1 E-0 1 
0. 14 7082 86 E-01 
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COMPONENT 

NITROGEN 
H2  8 
CO? 

METHANE 
ETHANE 
PROPANE 
I -BUTANE 
N-BUT ANE 
I -PENT  ANE 
N— PENT  ANE 
HEXANE 
HEPTANE 
OCTANE 
NONANE 
DECANE 


STAGE  NUMBER  15 
LI  00  ID  COMP. 
0.7748  7824E-13 
0.2435 5673 E- 05 
0. 295626426-08 
0. 1 72  TO  1 24E-08 
0.2283t>665E-07 
0.43443123E-04 
0. 1  86288 13E-02 
0. 1 524  8629  E-0 1 
0 . 105339 38 E  00 
0. I2372376E  00 
0.21 7  d  4  0  6  8  E  00 
0.220589I3E  00 
0.1 1577883E  00 
0.65201  f  60  E-0 1 
0.1 3466906 E  00 


VAPOUR  COMP. 

0. 1228671 1 E— 1 1 
0. 12134368E-04 
0.2  7999772E— 07 
0.  1  710  73  76E  — 07 
0. 198 1 1 715E-06 
0. 16997321E-03 
0.491756836-02 
0. 3777661 IE-01 
0 . 184661 46E  00 
0 . 20705  1416  00 
0.253348126  00 
0.18132232E  00 
0.665154646-01 
0.261372016-01 
0 . 38 162  326E-0 1 
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Table  Of  Subroutines 


AHJPUT 

Reads  in  the  problem  description  and  the  Chao- 
Seader  input  data  for  the  Thiele -Geddes  program. 

AOUTFi1 

Outputs  the  calculated  results  of  the  Thiele- 
Geddes  rigorous  program. 

BERGAM 

Is  the  modified  Bergamini1 s  calculational  proce¬ 
dure  mainline  program  written  in  subroutine  form 
for  use  with  the  short  cut  design  program. 

BINPUT 

Reads  in  the  problem  description  and  the  Chao- 
Seader  input  data  for  modified  Bergamini 8  s  cal¬ 
culational  procedure  program. 

BOUTPT 

Outputs  the  calculated  results  of  the  modified 
Bergamini's  calculational  procedure  program. 

BP1IY3 

Calculates  the  Chao-Seader  input  data  for  hypothe¬ 
tical  components  in  the  modified  Bergamini 1 s  calcu¬ 
lational  procedure  program  using  the  modified  Cavett ' 
correlation.  Enthalpy  input  data  is  also  calculated 
for  the  hypothetical  components  from  the  enthalpy 
correlation  by  Erbar. 

BUBPT 

Calculates  the  bubble  point  temperature  and  compo¬ 
sitions  using  the  Chao-Seader  K- ratios. 

CFLOWR 

Calculates  the  column  material  balances  for  all  the 
stages  in  the  Thiele-Geddes  program. 

COMP 

Calculates  the  stage  compositions  for  all  the  stages 
in  the  column  in  the  Thiele-Geddes  program. 

CTEMP 

Is  the  stage  temperature  calculating  subroutine  used 
in  the  modified  Bergamini's  calculational  procedure 
program. 

PEWIT 

Calculates  the  dew  point  temperature  and  composi¬ 
tions  using  the  Chao-Seader  K- ratios. 

DISTIL 

Computes  the  distillate  temperature  and  enthalpy 
according  to  the  specification  of  a  total  or  a 
partial  condenser. 

Ill- 7^- 


(13)  6IBFTC  FEED 


(14) 


(15) 


(16) 


(IT) 


(18) 


(19) 


(20) 


(21) 

(22) 


(23) 


FLASH 


GEDDE8 


GOLDIT 


KVAL 


IIITERP 


IH1TRP 


HI2FOT 


KVAL 


KLVAL 


pkys 


Proceeds  in  the  calculation  for  the  feed  con¬ 
dition  according  to  the  specifications  for  the 
particular  problem. 

Calculates  the  flash  compositions  and  tempera¬ 
ture  or  fraction  liquid  according  to  the  speci¬ 
fications  of  a  constant  temperature  or  a  constant 
fraction  liquid  flash. 

Is  the  Thiele-Geddes  calculational  procedure 
mainline  program  written  in  subroutine  form 
for  use  with  the  short  cut  design  program. 

Is  a  general  golden  section  search  subroutine 
programmed  according  to  the  procedure  described 
by  Wilde.  It  is  used  to  solve  for  the  root 
"theta"  in  the  Underwood  equation. 

Calculates  flow  stream  enthalpies  from  the  par¬ 
tial  molar  enthalpy  values  calculated  from  the 
correlation  as  proposed  by  Edmister  and  Erbar. 

Is  a  linear  three  dimensional  interpolation 
scheme  for  the  Erbar  and  Maddox  charts  for  the 
column,  theoretical  stage  requirement. 

Is  Lagrangian  third  order  polynomial  three  di¬ 
mensional  interpolation  scheme  for  the  Erbar 
and  Maddox  charts  for  the  column  theoretical 
stage  requirement. 

Reads  in  the  Erbar  and  Maddox  charts  in  the 
form  of  a  twenty-one  point  three  dimensional 
grid.  This  data  is  used  in  the  interpolation 
subroutines  lUTERP  and  IN1TERP. 

Computes  the  Chao-Seader  composition  dependent 
K- ratios . 

Calculates  the  Chao-Seader  liquid  fugacity  coe¬ 
fficients  which  are  equivalent  to  the  pure  com¬ 
ponent  ideal  K- ratios,  requiring  the  ideal  solu¬ 
tion  and  ideal  gas  assumptions. 

Calculates  the  Chao-Seader  input  data  for  hypo¬ 
thetical  components  using  the  modified  Cavett's 
correlate  ^  tv^  ^hiele-Geddes  program.  Entha- 
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Ipy  input  data  is  also  calculated  for  the  hypo¬ 
thetical  components  from  the  enthalpy  data  cor¬ 
relation  used  by  Erbar. 

(24)  $IBFTC  PSY 

Determines  the  slope  for  the  assumed  linear  re¬ 
lationship  of  log  K- ratio  vs  temperature.  This 
slope  is  then  used  in  the  subroutine  CTEMP  for 
the  stage  temperature  correction  in  the  modified 
Bergamini ' s  calculational  procedure  program. 

(25)  SIIIPUT 

Reads  in  the  problem  description  and  the  Chao- 
Seader  input  data  for  the  short  cut  design  com¬ 
puter  program. 

(2o)  SOUTPT 

Outputs  the  calculated  results  of  the  short  cut 
design  computer  program. 

(27)  SPHYS 

Calculates  the  Chao-Seader  input  data  for  hypo¬ 
thetical  components  in  the  short  cut  design  pro¬ 
gram  using  the  modified  Cavett's  correlation. 
Enthalpy  data  for  the  hypothetical  components  is 
calculated  from  the  enthalpy  correlation  used  by 
Erbar. 

(28)  SRTCUT 

Is  the  ffenske-tJnderwood-Erbar  and  Maddox  short 
cut  design  combination  computer  program.  It  is 
written  specifically  for  the  design  specifica¬ 
tion  of  the  split  on  two  components. 

(29)  TEMP 

Is  the  !!bubble  point n  temperature  calculation 
subroutine  used  with  the  Thiele-Geddes  program. 

(30)  THETA 

Calculates  the  Theta  convergence  for  the  column 
using  Newton's  method. 

(31)  VLTEST 

Tests  the  variation  of  the  vapour  profiles  in  be¬ 
tween  the  iterative  column  calculations  and  con¬ 
trols  the  values  of  the  enthalpy  profile  assumed 
for  the  next  trial. 

(32)  VPLQP 

Solves  the  column  stage  enthalpy  balance  equa¬ 
tions  starting  at  the  bottom  up  the  column  for 
the  column  vapour- liquid  flow  rates  in  the  Thiele 
Geddes  program. 
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(33)  ylBITC  B 1  B.1  fiolves  the  column  stage  enthalpy  balance  equa¬ 
tions,  calculating  from  both  ends  of  the  column 
towards  the  feed  stage,  for  the  column  vapour- 
liquid  flow  rates  in  the  Thiele -Geddes  program. 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  S  I  BFTC  A  INPUT  NO DECK 

1  SUBROUTINE  AINPUT  ( NC , NHC  » XM  T ) 

C  ******  SUBROUTINE  USED  WITH  THIELE  GEDDES  PROCEEDURE  ONLY  ******** 

C  ****  INPUT  DATA  FOR  THIELE  GEDDES  CALCULATION  IS  READ  IN  ********* 

2  COMMON/ONE/  CT(20),PC(20),W(20),DELTA!20),V1{20),VAP(20),A(16,6), 
1 AAOB ( 5 1  )  , ZZ ( 51 )  , BBM I  X ( 51 )  ,DDELMX ( 51 ) ,HL I Q ,HVAP 

3  COMMON /TWO/  X ( 5 1 , 20 ) , Y ( 5 1 t 20 ) ,  P ♦ NCP , N TP , NFP , BOT , D I S T , AK ( 5 1 , 20 ) 

4  COMMON/THRhE/JX,JAl,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA<4,20) 

5  CUMMON/FIVE/  REF XR,  BX I ( 20 ) , DX I! 20 ) , TO , T W , TF , F X ( 2 0 ) 

6  DIMENSION  XMT(20,2) 

7  2  FORMAT!  1X,2F7.1 ,  F  7. 4  ,  F  6 . 3  ,  F  7 . 2 , 3 3X  ,  2  A 6  ) 

10  3  FORMAT!  IX,  E14. 7) 

11  4  FORMAT!  1X,4E14. 7) 

12  18  FORMAT ( 1 X  »  5  I  3 , 2F8. 5 , 4F8. 2 , I  3 ) 

13  19  FORMAT ( 1X,F8.5, 713) 

14  100  FORMAT  (8F10.6) 

15  R E A D ( 5 ,  18) NC , NHC , NTP , NFP , JX , REFXR ,D  I  ST , TD , P , TF , T W , J XX 

24  R  t  A  D  (  5  , 19)  FRC , J A  1 , J A2 , J A  3 , J A4 , J A 5 , J A6 , J A7 

34  CO  L  1=1, NC 

35  R  E  A  0  (  5 , 2  )  C  T  (  I  )  ,  PC  !  I  )  ,  W  (  I  )  ,  DE  L  TA  (  I  )  ,  V  1  (  I  )  ,  (  XMT  (  I  ,  J  )  ,  J=  1 , 2  ) 

42  REAO  (5,3)  FX  (  I  ) 

43  1  R  E  A  D ( 5 , 4 ) !AA!J,  I ) , J  =  1 , 4 ) 

51  READ! 5 , 100 )  (  ( A!  I , J )  ,  1=  1  ,  16)  , J=l, 6  ) 

62  RETURN 

63  END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


$IBFTC  AOUTPT  NOOECK 

SUBROUTINE  AOUTPT  ( DQC  ,  DQR , XMT ) 

C  ********  SUBROUTINE  USED  WITH  THIELE  GEDDES  PROCEEDURE  ONLY  ******* 
C  *******  PRINTOUT  OF  TH I E L E-GE DDE S  CALCULATIONS 

COM MON /TWO/  X(51,20),Y(51»20),P,NCP,NTP,NFP,BGT,DIST,AK(51,20) 

COM MON /FOUR/  AVPI50)  ,ALP(50)  ,  T  <  5  0  ) 

COMMON/FIVE/  REFXR,  B X  I ( 20 ) , DX I ( 20 ) , TO , TW , TF , FX { 20 ) 

DIMENSION  XMT (20,2) 

30  FORMAT ( 1HS , 9X , 1 3HREFLUX  RATIU=,F8.5,  2 X ,  1  6HD I S T I L L A TE  RATE=,F8.5, 

1  2X  , 14HFEED  PLATE  N0=,I3) 

3  1  FORMAT ( 1 X , 9X , 5H  ST  AGE , 1 2X , 6H VAPOUR , 1 2X , 6HL I QU I D , 10X,  1 1HT  EMPERATURE ) 

32  FORMAT! 1X,9X,I4,12X,F8.5,12X,F8.5,12X»F8.3) 

33  FORMAT ( IX , 5X, 9HC0MPGNENT , 5X , 10H  FEED  ,  1  OX , 1  OHO  I  ST  I L l ATE ,  7X,10 
1H  BOTTOMS  ) 

34  FORMAT! 1  X  ,  4X  ,  2A  6 , 3X  ,  E  1  5 . 8  ,  5X,E15.8*  5X,E15.8) 

35  FORMAT ( 1HL, 25X,  12HSTAGE  NUMBER , 2X , I  3 ) 

36  FORMAT! IX, 7X,2A6,8X,  E L 5 . 8 , 1 4X , E 1 5 . 8 ) 

37  FORMAT ( 1 X , 5X , 9H COMP ON ENT  ,  1 5X  » 12H LIQUID  COMP. , 1 5X , 1 EHVAPGUR  COMP.  ) 
3  FORMAT  ! 1 H2 ) 

40  FORMAT (  1HS ,  1  5X ,  16HD I  ST  I LL ATE  TEMP=,F8.3,  5X,25HN0  OF  THEORETICAL  P 
1 L  AT  ES=  ,  14  ) 

41  FORMAT! INS, 25X, 30HCUMPOSI T IONS  IN  MOLE  FRACTIONS) 

50  FORMAT  ( 1HS » 25X , 22HB AS  1 S  ONE  LB-MOLE  FEED) 

51  FORMAT  (  1HL,  10X , 20HC0NDENSER  HEAT  LOAD= , E 1 5. 8 , 2X , 19HBTU/LB  MOLE  FE 

1  ED  ) 

52  FORMAT  (  1 h L ,  1  OX , 20H R FBO I L ER  HEAT  LOAD= * E 1 5. 8  * 2X * 19HBTU/LB  MOL E  FE 

1  ED  ) 

53  FORMAT  (  1HS » 20X , 36HTH I ElE  GEDDES  CALCULATION  PROCEEDURE) 

60  FORMAT  (  1HS  *  25X , 16H COLUMN  PRE S SURE = , F 8 . 3 , 5H  PSIA) 

WR I TE ( 6, 3 ) 

WR I TE ( 6, 53  ) 

WR I TE ( 6, 50  ) 

WkITc(6f60)  P 
WR I T E ( 6 , 40  )  TD ,  NTP 
WRITE(6, 30)REFXR»UIST  »NFP 
WR I TE! 6, 31  ) 

DO  29  N= 1 , N TP 

29  WRITE (6, 32 )N, AVP(N)  ,ALP(N)  , T!N  ) 

WRITE (6, 51)  DOC 
WRITE! 6, 52)  DQR 
WRITE! 6, 3) 

WR 1 TE ( 6, A  1  ) 

WR I TE ( 6, 33 ) 

DO  401  1=1, NCP 

401  WRITE (6, 34)  ! XM T ( I , J ) , J= 1 , 2 ) , F X ( I ) , DX I < I ) , BX I ( I ) 

M  =  3 

W  K  [  T  E  (  6 , 3  ) 

DO  22  N=  1 , NTP 
IF(N.EQ.M)  GO  TO  10 
GO  TO  11 

10  WRITE (6, 3) 

M  =  M  +  2 

11  CONTINUE 

WR  I  TE  (  6 , 35  )  N 
WRITE (6,37 ) 
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70 

71 
100 
101 


22 


CO  22  I  =  1 »  NCP 

WRI TE(6, 36)  «  XMT<  I , J  )  , J=  1 , 2 ) , X ( N , I ) t Y ( N, I ) 

RETURN 

END 


r  m  r  1/ 


Y  ,  [  I  ,  )  ,  i  »  1  -  l  f  (  t.  »  I  )  '  ) 
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2 

3 

4 

5 

6 

7 

10 
1 1 
12 
L  3 

14 

15 

16 
17 
20 
21 
22 


$  I B F  TC  BERG AM  NODECK 

SUBROUTINE  BERGAM  (  D  I  ,  B  I  , XF I , YF I , HX X , SHF  I , DOC ♦ DQR ) 

C  BERGAM IN  I  CALCULATION  PROCEEDURE 

C  CHAO-SEADER  K  AND  H  VALUES 

c  THETA  CONVERGENCE  METHOD 

C  AVERAGEING  TEMP  AND  L I QU I D- VAPOUR  PROFILES  AS  CONVERGENCE  FURCEING 
C  LIMIT  L  ID- VAPOUR  PROFILE  TO  10  PERCENT  CHANGE 

COM MON /ONE/  C T (  20 ) , p C ( 20 ) , W ( 2 0 ) ,  DEL  T A ( 20 )  , V 1 ( 2 0 )  , V A P ( 2 0 )  ,  A  (  1  6 , 6 )  , 

1 A A OB ( 51 )  , Z  Z ( 5 1 )  , 8BM I  X ( 5  1  )  , DUEL  MX ( 5 1 ) , HL I Q , HV AP 
COM MON /T WO/  X ( 5 1 »  20 ) ,Y(51,20),P,NCP,NTP,NFP,BOT,DIST,AK(51,20) 
COMMON/ THREE/ JX ,JA1,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA(4,20) 
COMMON/FUUR/AVP { 50) , ALP { 50) , T ( 50 ) 

CuMMON/FIVE/  REFXR,  BX  I  (20  )  ,DXI ( 20 ) i TD*TW, TF » FX { 20 ) 

DIMENSION  T  A ( 5 )  »  V ( 20 ) *  BI DI { 20 )  ,D  I  ( 20  )  , Bl  ( 20 ) , XX ( 20 ) , YV ( 20 ) , KKK ( 50 ) 
DIMENSION  XF  I  ( 20  )  , y F  I  ( 20 ) t  XD{ 20)  , YD ( 20 ) , PSI ( 51 ,20) 

DIMENSION  A VP  I ( 50),ALP1(50)  ,  TT(50) 

DIMENSION  XMT ( 2 0 , 2 ) 

REAL  LO ( 20 ) ,L(50»20) , LX ( 20 ) 

6  FORMAT  ( IX, 10X, 5L13.6) 

17  FORMAT  (  IX,  10X, Eli. 6) 

KX  X  =  1 


KXN  =  1 

80T  =  1 . 0-D 1ST 
CO  222  N=1,NTP 
222  KKK ( N ) = 1 
C 

c  CALCULATION  OF  ASSUMED  LINEAR  TEMPERATURE  PROFILE 

C 


24  CON=NTP 

25  DEL=( TW-TD) /CON 

26  T  D=  TD  +  459 . 6 

27  T (  1  )  =  TD  +  CEL 

30  DO  10  N  =  2 , N T  P 

31  10  T  (N )  =  T ( N-l ) +DEL 

33  WR I TE ( 6 ,  17)  SHF  I 
C 

C  CALCULATION  UP  ASSUMED  LINEAR  VAPOUR  AND  LIQUID  PROFILES 

C 

34  M=NFP—  1 

35  DO  8  N  =  1 , M 

36  ALP ( N) =REFXR*DI ST 

37  8  AVP(N)=(REFXR+1. )*DIST 

41  M  =  NT  P— 1 

42  DO  9  N=NFP , M 

A3  ALP [ N ) =ALP ( NFP- 1 ) +FRAC 

44  9  AVP(N)=AVP(NFP— 1 )— ( l.-FRAC) 

46  AVP(NTP)=AVP(NFP-l)-( l.-FRAC) 

47  AL  P ( NT  P ) =BGT 
C 

C  STORAGE  OF  L-V-T  PROFlLtS  TO  CHECK  WITH  NEWLY  CALCULATED  ONES 

C 

50  DO  131  N=1,NTP 

51  ALP l ( N ) =ALP ( N ) 

52  AVPI (N)=AVP(N) 

53  131  T  T ( N )  =  T ( N ) 
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FORTRAN  SOURCE  LIST  BERGAM 

ISN  SOURCE  STATEMENT 

C 

C  CALC  JF  CONDENSER  CONDITION  AND  CUNDENSER-REBU I LER  HEAT  LuADS 

C 

55  GO  TO  (  69  ,  SI  )  ,  J  X  X 

56  61  CALL  RIVAL  (NTP+1  ,TD,3) 

57  DFRAC=REFXR/ { REFXR+ 1 . ) 

60  DU  62  1=1, ,CP 

61  YD (  I  )  =  D X  1(F) 

62  XD (  I )  =  DX I {  I  )  / V A P (  I  ) 

63  62  Y{  1, I )=DFRAC*XD(  I  )  +  (  1. -DFRAC ) *  YD ( I  ) 

65  GO  TO  70 

66  69  DO  777  1=1, NCR 

67  7  77  Y(  1 ,  I  ) =  DX I (  I  ) 

71  70  CALL  K  IVAL  {  1  ,T (  1  )  ,  1  ) 

72  CALL  KVAL  (  T  (  1 }  ,  1  ) 

73  DO  753  1=1, NCR 

74  753  X(  1  ,  l  )  =Y  (  1  ,  I  )  /V  AP  (  I  ) 

76  60  CO  75  1  =  1,  viCP 

77  75  XX (  I ) =  DX I (  I  ) 

101  CALL  DISTIL  ( TD , X X , S HD  I , HD V , N T P+ 1 , YD , XU , REF XR , HDX , HD Y , T (  1  )  ) 

102  CALL  8U6PT  ( BX I , T ( NTP ) , NTP ) 

103  DO  938  1=1, NCR 

104  938  XX(  I }  =  X ( NTP ,  1  ) 

106  CALL  H  V  A  L  ( T ( NT P  )  , Y Y , XX  ,2, NTP) 

107  SHB I =HL I  0 

110  CQC= { HDV-SHDI )  »  D  I  S  T  * (REFXR+1. ) 

111  GO  TO  ( 30, 31  )  , JXX 

112  30  DXD=SHUI 

113  GO  TO  32 

114  31  DX  D  =  HDY 

1  15  32  DQR=  DXD  *D I S T+ SHB I  * ( 1 . -D I  ST ) - SHF  I +DQC 

116  WR I TE ( 6 »  17)  OQC 

117  WRITE! 6, 17)  DQR 

120  GO  TO! 80, 8  l  ), JXX 

121  8  0  HD  =  D I  ST  *  SHD I 

122  GO  TO  82 

123  81  HD=DIST*HDY 

124  82  CONTINUE 

125  HB=SHB I*BOT 
C 

C  CALCULATING  UP  COLUMN  FROM  BOTTOM,  tNTHALPY  AND  MASS  BALLANCES 

C  AND  SIMULTANEOUSLY  CALCULATING  NEW  TEMPERATURES  AND  L-V  PROFILES 

C 

126  DO  327  1=1, NCP 

127  327  L( NTP-1, I )=AVP( NTP) *Y(NTP, I )+BI ( I ) 

131  CO  714  1=1, NCP 

132  714  L(NTP, I)=BOT*BXI  {  I) 

134  MM  =  N  T P 

135  KF=NTP-NFP 

136  CO  1000  NN=  1 , KF 

137  N=MM-NN 

140  K=i 

141  K 1 =  1 

142  KK=  1 

14  3  T  A ( K )  =  T ( N ) 
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144 

068 

CONTINUE 

145 

IFIK1.LE.2)  GO  TO  313 

150 

IF(N.EQ.NFP)  GO  TO  313 

153 

IF(KXX.EQ.l)  GO  TO  313 

156 

DU  802  I  =  1 ,  N  C  P 

157 

802 

YY (  I )=Y ( N,  I  ) 

161 

CALL  HVAL  ( T ( N ) , Y Y , X X , 1 , N ) 

162 

H  V  =  H  V  A  P 

163 

CALL  HVAL  { T ( N- 1) ,YY,YY»2,N~i 

164 

H  L - H  L 10 

165 

CALL  HVAL  (  T  {  N- 1  )  ,  Y  Y  ,  B  I  ,  2  ,  N- 1 

166 

HT=HL IQ 

167 

A VP ( N  )  =  ( HT-HB+DQR ) / ( HV-HL ) 

170 

CALL  VLTEST  (AVP,AVP1,N) 

1  71 

AL  P ( N— 1 ) = AVP I N ) +  BOT 

172 

313 

S  U  M  Y  =  0  . 

173 

K  1  =  3 

174 

SUMX=0. 

175 

DO  314  I  =  1 , NC  P 

176 

314 

S  U  M  X  =  S  U  M  X  +  L  {  N,  I  ) 

20u 

DO  803  I  =  1 ,  N  C  P 

20  1 

80  3 

X ( N, I ) =L ( N, I ) /SUMX 

203 

T  X  =  T  (  N  ) 

204 

I  F ( KKK(N) .GT.2)  GO  TO  670 

20  7 

CALL  RIVAL  (N,TX,2) 

210 

KKK ( N ) =3 

211 

670 

CALL  KVAL  {  TX,N  ) 

212 

DO  6  72  I  =  1  , NCP 

213 

672 

AK ( K » I  ) = V AP {  I  ) 

215 

DO  671  1=1, NCP 

216 

671 

SUMY=SUMY+L(N» I  )  *  AK  (  K  ,  I  ) 

220 

DO  316  1=1, NCP 

221 

316 

Y { N ,  I ) =  L ( N ,  I  ) *AK ( K,  I  ) /SUMY 

223 

IFIN.EQ.NFP)  GO  TO  972 

226 

DO  315  1=1, NCP 

227 

315 

UN-1,  I  )=AVP(N)*X(N»  I  )  *  AK  (  K  ,  I 

231 

GO  TO  973 

232 

9  72 

DO  974  1=1, NCP 

2  33 

9  74 

LX (  I  )  =  AVP(NFP )* YIN,  I  )  +  Bl(I) 

235 

9  73 

XR= SUMX/ SUMY 

236 

I  F ( KK • GT . 2 ) GO  TO  317 

241 

CALL  PSY  { TA( K )  ,K  ,N  ,  PS  I  ) 

242 

KK=  3 

243 

317 

CALL  CTEMP  ( T A , TZ , K , N , XR , PS  I ) 

244 

IFIK.LT.3)  GO  TO  668 

247 

TIN  )=TZ 

250 

1000 

CONTINUE 

c 

c 

c 

c 


252 

253 

254 

255 


CALCULATING  DOWN  COLUMN  FROM  TOP  ,  ENTHALPY  AND 
AND  SIMULTANEOUSLY  CALCULATING  NEW  TEMPERATURES 

CO  2000  N= i ,  NFP 
K=  1 
Kl  =  L 
KK=  1 


MASS  BALLANCES 
AND  L-V  PROFILES 
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256 

T  A  {  K  )  =  T  (  N  ) 

257 

66  7 

CONTINUE 

260 

IF(N.EQ.NFP)  GO  TO  907 

263 

IF ( N.EQ. 1 )  GO  TO  302 

266 

IF ( K  l  .LE .2 )  GO  TO  333 

271 

907 

CONTINUE 

272 

I F { KXX.EQ. 1 )  GO  TO  911 

275 

00  801  1=1, NCR 

276 

801 

XX ( I  )  =  X ( N- 1  ,  I  ) 

300 

CALL  HVAL  ( T ( N- 1 ) , Y Y , XX • 2 , N- 1 ) 

301 

HL=HLIC 

302 

IF( N.EQ. NFP)  GO  TO  909 

305 

GO  TO  910 

306 

909 

CALL  FWAL  (  T F , X X  ,  XX  ,  1  , N  +  2  ) 

307 

HH=HVAP 

310 

CALL  HVAL  { T ( NF P ) , X X , XX ,  1  , NFP  ) 

311 

HHH=HVAP 

312 

HV= { HH* ( l.-FRAC) +HHH*AVP (NFP) ) /  ( ( 1 . -FRAC ) +AVP ( NFP ) ) 

313 

CALL  HVAL  ( TF,D I , XX,  1  ,N  +  2  ) 

314 

H  H  =  H  V  A  ° 

315 

CALL  HVAL ( T (NFP )  ,DI *  XX  t 1,NFP ) 

316 

HHH=HV AP 

317 

H  T  = ( H  H  * (  l.-FRAC } +HHH*A VP ( NFP )  ) /(  ( 1 . -F R AC ) + A VP ( NF P )  ) 

320 

ALP(N-1 )=( UQC+HD-HT ) / ( HV-HL ) 

321 

A V X  =  A L P  (  N—  1  )  +01  ST 

322 

A VP ( NFP )  =  A  V  X  —  L  . +FRAC 

323 

GO  TU  911 

324 

910 

CONTINUE 

325 

CALL  HVAL  ( T ( N )  , XX , XX ,  1  ,  N  ) 

326 

H V  =HV  AP 

327 

CALL  HVAL  ( T ( N ) , 0 I , XX , 1 , N ) 

330 

H  T  =  H  V  A  P 

331 

AL  P ( N— 1  )  =  { UOC+  HU— H  T )/ (HV-HL ) 

332 

CALL  VLTEST  ( AL P , ALP  1 , N-l  ) 

33  3 

A VP ( N ) = ALP ( N- 1 ) +DIST 

334 

911 

DO  713  I=1,NCP 

335 

713 

L (N-l , I )=X (N-l, I ) *ALP(N-1 ) 

337 

I F ( N.EQ. NFP)  GO  TO  2000 

342 

GO  TO  333 

34  3 

302 

CONTINUE 

34  4 

IF  (K.E0.2)  GO  TO  663 

347 

A VP (  1  )=DIST*REFXR  +  DIST 

350 

GO  TO  (67,68) , J  X  X 

351 

67 

DO  7  54  I  =  1 , N  C  P 

352 

754 

LO ( I ) =0 I ( 1 ) *REFXR 

354 

GO  TO  755 

355 

6  8 

CO  300  1=1, NCP 

356 

300 

L  0 (  1 ) =  X  D (  I )*REFXR*DIST 

360 

755 

DO  756  1=1, NCP 

361 

756 

V(  I  ) =L 0 (  I  ) +  D I (  I  ) 

363 

333 

S  U  M  Y  =  0  . 

364 

K  1  =  3 

365 

IF ( N.EQ. 1 )  GO  TO  305 

370 

CO  335  1=1, NCP 

371 

335 

V(  I  )=L (N-l  ,  I  )+D  I  (  I  ) 

(  )  =  (  !  i 

l _ 
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1  SN 

373 

305 

3  74 

3  34 

3  76 

3  77 

82  1 

401 

6  6  3 

402 

405 

406 

407 

66  4 

410 

411 

665 

413 

414 

415 

66  6 

417 

420 

421 

3  5o 

42  3 

424 

427 

430 

431 

33  7 

432 

435 

436 

2000 

440 

443 

444 

411 

446 

44  7 

450 

451 

412 

453 

4  54 

45  5 

4  56 

413 

460 

461 

462 

46  3 

C 

C 

c 

c 


CO  334  1=1, NCP 
SUMY=SUMY+V ( I ) 

DO  821  1=1, NCP 

Y  (  N  ,  I  )  = V (  I  )  /  SUMY 
TX  =  T  A { K ) 

I F ( K  K  K { N ) . G  T . 2 )  GO  TO  664 
CALL  RIVAL  IN,  TX,  l) 

KKK ( N  )  =3 

CALL  KVAL  ( TX,N  ) 

DU  666  1=1, NCP 
AK( K, I  ) =VAP (  I  ) 

S  U  M  X  =  0  . 

DO  666  1=1, NCP 
SUMX=SUMX+V(  I  )/ AK(K,  I ) 

DO  336  1=1, NCP 
X(N,I)=V(I)/AK(K,I) /SUMX 
LIN, I )=X(N,  I  )  *  A  L  P I N ) 

XR=  SUMX/ SUMY 
IMKK.GT.2)  GO  TO  33  7 
CALL  PSY  I T  A ( K )  ,K,N,PSI  ) 

KK  =  3 

CALL  CTEMP  ( TA, TZ , K , N , XR , PS  I ) 

IFIK.LT.3)  GO  TO  6b7 
T  (  N  )  =  T  Z 

CONTINUE 

IF ( KXX  ,EO.  1  )  GO  TO  42 
DO  411  1=1, NCP 
YY (  I )  =  Y ( NT°  ,  I  ) 

CALL  HVAL  (  T { NT P ) , Y Y , XX , 1 , NTP  ) 

H  H  H  =  H  V  A  P 
DU  412  1=1, NCP 
XX(  I  )  =  X( NTP, I  ) 

CALL  HVAL  ( T I  NT P ) , Y Y , XX , 2 , NTP ) 

HH  =  HL  I  0 

DO  413  1=1, NCP 
XXI  I ) =  X  I  NT  P- 1 , I  ) 

CALL  HVAL  (  TINT  P-1)  ,YY,XX,2,iMTP~i) 

H=HLIQ 

A  VP  I  mTP  )  =  (  i30T*  I  HH-H  )  -DOR  )  /  I  H-HHH  ) 

ALPINTP-l ) =  A V  P I  MTP ) +80  T 

FEED  PLATE  MISMATCH  INCORPORATING  THETA  METHOD  OF  CONVERGENCE 
SETS  THE  CORRECTION  FOR  ThE  NEXT  ITERATION 


464 

42 

SU  '.DI  =  0, 

46  5 

DO  109  1=1, NCP 

466 

GO  TO  (121  ,  12 2,  123,  123  )  , JX 

467 

121 

Cl=  1. 

4  70 

C2  =  0. 

471 

GO  TO  120 

472 

122 

C1=0. 

4  73 

C2=  1  .0 

474 

GO  TO  120 

475 

123 

C 1  =  FR AC  *  XF  I  (  I  ) / F  X  I  I  ) 

4  76 

C2= I l.-FRAC)*YF  I  (  I ) / FX  I  I  ) 
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477 
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500 
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109 

503 

504 

C 

5C5 

510 

513 

15 

C 

5  14 


515 

4  1 

5  16 

517 

520 

521 

113 

52  3 

524 

525 

526 

527 

711 

531 

5  32 

533 

712 

C 

C 

C 


535 

5  36 
537 

542 

543 

415 

545 

546 

547 

416 

551 

552 

14 

553 

560 

561 

16 

562 

567 

351 

5  70 

573 

574 

575 

350 

576 

601 

602 

603 

400 

604 

605 

43 

607 

610 

SOURCE  STATEMENT 

BIDICI  )  =  (L(NFP-1,I)/DI(  I)  +  C  1  ) / ( LX (  I ) /til  (  I  )  - 1 . +C2 ) 

01  (  I  )=FX( I )/( 1.0+BIDI (  I )  ) 

SUMDI  =  SU M D  I  +  0 1  {  I ) 

DEL  1  =  ( DIST-SUMO  I  ) 

WRITt(6,17)  DELI 
CONVERGENCE  CRITERION 
I F { KXN • L  E  •  2  )  GO  TO  IS 

I F ( ABS(DEL1).LE.1.0E-04.AND.ABS( 1.-THET1) .LE.1.0E-Q3)  GO  TO  400 
CON  T I NUE 

THETA  CONVERGENCE 

CALL  THETA  ( 1  HE T 1 , F X  ,  B  I  D I  ) 

FORMAT (  1X,6X, 18HTHETA  CONVERGE NCE=  , F8. 5 ) 

WRITE! 6,41)  THE  T  1 
DC  113  1=1, NCP 

D I (  I  )  =  FX  (  T  )  /  (  1* +  THE  T 1*  B I D  I  (  I  )  ) 

B I (  I )  =  THET 1*  B I D I ( I ) «  D I ( I ) 

SUMO  1  =  0. 

SUM B 1=0. 

DO  711  1=1, NCP 
SUMO I  =  SUMO  I +DI (  I  ) 

SUMBI  =  SUMBI+BI  (  I  ) 

DO  712  1=1, NCP 
DX I ( I ) =D I t I ) / SUMD I 
BA  I {  I  )=BI  (  I  ) / SO MB  1 


CHECK  T-PROFILE  TO  DECIDE  IF  L-V  CORRECTIONS  ARE  10  BE  MADE 


K  X  X  =  0 

DU  415  N= I , N  TP 

I F ( ABS(TT(N)-T(N) ) .LE.10. )  GO  TO  415 

KXX=  1 

CONTINUE 

DO  416  N=1,NTP 

T(N)=(T(N)+TT(N) )/2.0 

r  T  (  N  )  =  T  (  N  ) 

WRITE! 6, 14 ) 

FORMAT! IX, 20X,23HNEW  TEMPERATURE  PROFILE) 

WRITE (6,o)  !T(N),N=1,NTP) 

WRI  f E ( 6 ,  lo) 

FORMAT ( IX , 20X , 18HNEW  VAPOUR  PROFILE) 

WR I TE ( 6, 6 )  ( A VP ( N ) , N=1  ,NTP ) 

FORMAT  (1X,16H*»*  ERROR  07  *** ,71HSPECIF ICATIONS  FOR  D  AND  THEFA  N 
10T  MET  WITHIN  25  TRIALS  OF  L-V  PROFILES) 

I F ( KXN.LE . 25 )  GO  TO  350 
WRI  TE ( 6, 351  ) 

GO  TO  400 
CONTINUE 

I F ( KXX .ED.  1  )  GO  TO  60 
KXN  =  KXN+  1 
GO  TO  60 
CUNT  I NUE 
DU  43  N= 1 , NTP 
T ! N ) =  T (NJ-459.6 
TD=  TD-459 . 6 
RETURN 
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tIBFTC  B  INPUT  NODECK 

SUBROUTINE  6INPUT  (NC,NHC,XMT) 

c  ******  subroutine  used  with  bergamini  proceedure  only  ************* 

C  *****  INPUT  DATA  FUR  BERGAMINI  CALCULATION  IS  READ  IN  ************* 

COMMON/ ONE/  CT{ 20)  ,PC( 20)  ,W< 20  )  , DELTA (20)  , VI  (20)  , VAP (20) ,A ( 16,6) , 

1 AA06 ( 5 1 )  , ZZ ( 51  )  ,BBM I X( 51 )  ,UD6LMX { 51 ) , HLIC  »HVAP 
COMMON /TWO/  X!51,20),Y{51,20),P,NCP,NTP,NFP,BOT,DIST,AK(51,20) 
COMMON/ THREE / JX ,JAL,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA(4,20) 
COMMON/FIVE/  REFXR,  B X  I  ( 20  ) , OX  I ( 20 ) , TD , T W , TF , F X ( 20 ) 

DIMENSION  XMT (20,2) 

FORMAT!  IX, 2F 7.1 ,F7. 4, F 6.3, F 7.2 ,33X, 2 A6) 

FORMAT ( IX, 3 EL 4. 7) 

FORMAT { IX, 46 14. 7 ) 

FORMAT ! IX,  513, 2F8. 5 ,4F8.2 , I  3) 

FORMAT!  IX, Fa. 5, 7  1 3) 

FORMA!  (8F10.6) 

READ! 5 ,  18 ) NC,NHC,NTP ,NFP , JX,REFXR,D I  ST , TD, P, 

READ! 5, 19 )  FRC , J A 1 , J A2 , JA3 , JA4 , J A 5 , JA6 , J A7 
DO  1  I  =  1 ,  N C 

READ! 5,2 )  C  T  t  I )  , PC (  I  ) , W ( I  ) , DEL TA ( I ) 

READ  (5,3)  EX ( I  )  , OX  I (  I  )  ,  BXI  (  I  ) 

READ (5, 4) { AA( J, I ) , J=l,4) 

R  E  A  D ( 5 , lOu) (  (A(  I,J),I=1,16),J=1,6  ) 

RETURN 
END 
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TF  ,  TW, JXX 


VI  !  I  )  ,  (XMT! I  ,  J )  , J=  1  ,  2 ) 
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$IttFTC  80UTPI  .NODECK 

SUBROUTINE  BOUTPT  ( DQC , DOR , XMT ) 

C  ******  SUBROUTINE  USED  wlTH  8ERGAM  INI  PRQCEEDURE  ONLY  ************* 

C  ******  OUTPUT  SUBROUTINE  FOR  BtRGAMI NI  CALCULATION  PROCEEDURE  ****** 
COMMON /T  WO/  X  (  5 1 , 20  )  ,Y(51,20),P,NCP,NTP,NFP,BOT,DIST,AK(5L,20) 

COM MON /FOUR /A VP { 50) , ALP (50) , T ( 50 ) 

COMMON/FIVE/  REFXR,  BX I ( 20  )  , DX I ( 20 ) , TD , TW , TF , FX I  20 ) 

DIMENSION  XMT { 20, 2 ) 

30  FORMAT(  1HS,9X, 13HREFLUX  RATI0=,F8.5,  2X , 1 6HD I S T I LL ATE  RATE=  »  FB .5  f 
1  2 X  , 14HFEED  PLATE  N0=,I3) 

31  FORMAT  (  IX  ,  9X  »  5HSTAGE  t  12X  ,  6H VAPOUR  ,  12X  ,  6FILI  QUI  D,  10X  ,  1 1H TEMPERATURE  ) 

32  FORMAT ( 1X,9X,I4,L2X,F8.5,L2X,F8.5,12X,F8.3) 

3  3  FORMAT  (  IX  ,  5X  ,  9HCC)MPUNENT,5X  ,  10H  FEED  ,  i OX , 1 OHD I $ T I LL AT E ,  7X,I0 
1H  BOTTOMS  ) 

34  FORMAT  (  IX , 4X , 246 , 3X ,  EL5.8,  5X,E15.8,  5X,E15.8) 

35  FORMAT (  1HL , 25X ,  12HS TAGE  NUMBER , 2 X , I  3 ) 

36  FORMAT (  IX»7X,2A6»8X,  E 1 5 . 8 , 1 4X , E i 5 . 8 ) 

37  FORMAT ( 1 X  »  5X ,  9H COMP ONE NT  ,  1 5X » 12H LIQUID  COMP. , 1 5X , 12H VAPOUR  COMP.  ) 
3  FORMAT  ( IH2 ) 

40  FORMAT (  IMS,  15X,  1 6HD I  ST  I LL ATE  TEMP=,F8.3,  5X,25HN0  OF  THEORETICAL  P 
LL A  I ES=  » 14  ) 

41  FORMAT (  1HS  ,  25X,  30HC0MP0SI T IONS  IN  MOLE  FRACTIONS) 

50  FORMAT  ( 1HS|25X»22H BASIS  ONE  LB-MOLE  FEED) 

51  FORMAT  ( 1HL, 10X, 2 OHCGN DENSER  HEAT  L GAD= , E 1 5. 8 , 2X , 1 9HBTU/ LB  MULE  FE 

LEO  ) 

52  FORMAT  (  1HL,  10X,  20HREB0ILER  HEAT  L  CJ  A  D~  ,  E  1  5.  8  ,  2X  ,  1 9Hb  T  U/ LB  MOLE  FE 

LED  ) 

53  FURMAT  (1HS,20X,  36H  BERG AM  I N I  CALCULATION  PROCEEDURE  ) 

60  FORMAT  (  1HS,25X»16H COLUMN  PRE S SURE= , F8 . 3 , 5H  PSIA) 

WRITE (6, 3) 

Wkl  TE  (  6 , 5  5  ) 

WRITE ( 6, 50 ) 
w  K  I  I  E  (  6 1  6  0  )  P 
WRITE (6, 40)  TD, NTP 
WRITE(6,30)REFXR»DIST  ,  N  F  P 
WRI  TE( 6, 3  1  ) 

DO  29  N= 1 ,NTP 

29  WRI TE( 6,32 )N, AVP(N) , ALP(N) ,T(N) 

WKITE(6*51)  DQC 
WRITE (6, 52)  DOR 
WR  I  TE  (  6,  3  ) 

WRI TE( 6,41 ) 

WRITE( 6,33) 

DO  401  I  =  1 , NCP 

40  1  WRITE  (6, 34)  (XMT(  I  »  J ) , J= l » 2  )  ,  F  X  (  I  )  ,DXI  (I  )  ,13X1  (I  ) 

M=  3 

w  K  I  T  E  (  6 , 3  ) 

DO  22  N= 1 , NTP 
IF(N.EQ.M)  GO  TO  10 
GO  TO  11 

10  W  R  I  T  E  {  6  ,  3  ) 

M  =  M  +  2 

11  CONTINUE 
WRITE (6, 35)  N 
WRI  TE (6, 37 ) 
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70 
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SOURCE  STATEMENT 
CO  22  1=1, NCR 

22  wRITE(6,36>  ( XM T { I , J ) , J  =  1 , 2 )  , X  (N , I)  , Y ( N, I ) 
RETURN 
ENU 
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S16FTC  BPHYS 

SUBROUTINE  BPHYS  (  N  C  ,  X  M  T  ) 

C  * *****  SUBROUTINE  USED  WITH  BERGAMINI  PROCEEDURE  ONLY  ************* 

C*»*  PHYSICAL  PROPERTIES  ARE  CALCULATED  IN  THIS  SUBROUTINE  FUR  HYPOTHETICAL 
C***  COMPONENTS  TO  CALCULATE  CHAO-SEADER  K-RATIUS  AND  H-VALUES 

C *******  -  CAVETTES  METHOD  - 

COM MON /ONE/  CT { 20 ) , PC ( 20 ) , W { 20 ) , DELTA ( 20 ) , V 1 (20) ,VAP(20),A(16,6), 

1 A AO  B ( 51 ) , Z  Z ( 51) ,BBMIX( 51 ) ,DDELMX(51 )  ,HLI0*HVAP 
COM MON /TWO/  X(51,20),Y<51,20) , P , NCP , NTP , NF P , BOT , D I  ST , AK ( 5  1 , 20 ) 

COMMON /THREE/ JX , J A1 , J A 2 , J A3  , J A 4 ,  J A 5 , J A6 ,  J A 7 , J XX ,  FR AC , FRC , A A ( 4, 20 ) 
COMMON/FIVE/  RCEXR,  BX I ( 20 ) , D X I { 20 )  , TD  ,  T W , TF , F X ( 20 ) 

DIMENSION  XMT(20,2) 

33  FORMAT (  IX, 3E14.  ( ) 

50  FORMAT ( IX, 7F8.3 , 11X , 2A6) 

M=NC+l 

DO  20  I=M,NCP 

READ!  5 , 50  )  BPCA,  BMLA  ,  BPMNA,  TCl  ,  PCI  ,  AP  I  ,  XXWM,  (  XMT  (  1,  J)  ,  J=l,2) 

READ  (5,33)  E X (  I  5  , D X  I  (  I  )  , BX I  ( I  ) 

S P G  = 1 4 1 . 5/ ( AP 1  +  131. 5  ) 

I F ( BPMNA.EQ.O. )  GO  TO  1 
GO  TO  2 

1  BPMNA= ( BPCA+BML A) /2 . 0 

2  XRH0=0 .98907*SPG 
VI (  I )=XXWM/XR  HO 

UOPK=(  ( BPMNA  +  45  9.6) **(  1.0/ 3.0)  )/SPG 
IF ( TCI .EO.O. )  GO  TO  3 
GO  TO  4 

3  I F ( BMLA.EQ.O.  )  GO  TO  9 
BP=BML A 

GO  TO  11 
9  B  P  =  R  P  M  N  A 
11  CONTINUE 

TC  1  =  76 8. 0  7  121  +  {  1.  71336  9  3-0. 1 08 34003E-02* BP  ) *BP 

TC1=TC1-0.89212579E-02*API*BP  +0. 30890584E-06*BP  **3 

TC  1  =  TC 1+ (  ( 0. 5309492 OE-05+0.  327  11 600E-07* API ) *  API ) *BP  **2 

4  CT (  I  )  =  TC  1 

IF ( PCI .EO.O. )  GO  TO  5 
GO  TO  6 

5  PC  1  =  2. 82 90406+ ( 0 . 94 1 20 1 09E-03-0. 304 74749E-05 *BPMNA ) *BPMNA 
PC  L=PC 1-0.2  08761 10E-04*AP I *8PMNA  +  0.  1 5 1 84 1 0  3E -08 * B PMN A* * 3 
PC1  =  PC  1+ (  ( + .  1 104789 9 E-07  +  0.  1 39  496 1 9E-09* AP I ) *API ) *BPMNA**2 
PC  1  =  PC  1-0. 482 71 599E-07*AP I  * *2* BPMNA 

PC  1  =  EXP  ( PC  1*2. 303 ) 

6  PC (  I  )=PC  1 
BP=BPMNA+4 59 . 6 

W(  I  )  =  ( 3. 0/7.0) * (  ( ALOG( PCI / 14. 696)  ) / 2 . 303 ) / ( TC 1 / BP- 1 . 0 ) - 1 . 0 
DEHV=  { 7.58+4.571* ( ALOGIBP  ) ) /2 . 303 ) * { B PMNA+45 9 . 6 ) / 1 . 8 
DEHV  =  DEHV  » (  (TCi-537.  )/( TC 1- ( BP MNA  +  459 . 6 )  )  ) **0.  38 
DELTA!  I  )  = (  ( UEHV-592 .4  ) /V  1  (  I  )  )  **0.5 

A  A ( 3 , I  )  =XXWM*(3.  10  73165E-04- j. 832 38 i E-08* AP I ) 

AA( 4, I )  =XX WM* (9.1 745019 E- 11* API-5. 63 34748E-08) 

HB  =  -. 8  1862040+  (-2 . 8  568654E-0  5+ 1 . 7024654E-06* AP I ) * API 

HB=  HB— 1 .48  868  32E-08*AP 1**3  -3 . 0836492E-04*U0PK* *3 

HB=HB+( 8 . 8 395563E-02+4. 293470 3E-03*U0PK) *UOPK 
A  A  (  2  ,  I  )  =XX'WM*HB 
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SOURCE  S  T  ATE MEN T 


FORTRAN  SOURCE  LIST  BPHYS 


ISN 


76  HB=  188 .25000+  (  3.344  2  502-  (5.2  71  6944E -02 -3 . 53  5  3  7  7  7  E -04  *  A  P  I  )  »API  )  *API 

77  8.9530784-3. 5 1 L 858 1E-0 I *UOPK ) *U0PK**2 

100  H3=H6+(43. 401618-5. 9563889E-U3*AP I ) *UGPK 

101  A A ( I , I )  =XXWM*HB 

102  20  CUNTINUE 

L04  RETURN 

105  END 
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SOURCE  STATEMENT 


f-ORTRAN  SOURCE  LIST 


5IBFTC  8 U  B  P  T  NODECK 

SUBROUTINE  HU BP  F  (XX,TX,N) 

C***  SUBROUTINE  USED  WITH  BOTH  BERGAMINI  AND  THIELE  GEDDES  PROGRAMS  *** 
c*******  BUBBLE  POINT  IS  CALCULATED 

COMMON/ONE/  CT( 20) , PC( 20) fW (20  )  , DELTA! 20) , VI ( 20) , VAP (20) , A( 16,6 ) f 
1AA0B( 51 ) , ZZ ( 51 )  , 6BM IX{ 51  ) , DDELMX ( 5 1 )  , HL I  0 , H V A P 
COMMON /TwQ/  X ( 5  1 , 20  )  , Y { 5 1 , 2 0 ) , P , NC P , NTP , NF P , BOT , D I S T , A K ( 5 1 , 2 0 ) 
COMMON/ TH RE E/JX ,JA1,JA2,JA3,JA4,JA5»JA6,JA7,JXX,FRAC,FRC,AA(4,20) 
DIMENSION  XX (20) 

11  FORMAT  (  1 X  »  1 6  H  *  *  *  ERROR  04  ***  ,  42HBUBPT  MORE  THAN  THIRTY  TRIALS  A 
IRE  REQUIRED  ) 

DU  I  1=1, NCP 
X ( N  » I  )  =XX (  I  ) 

1  Y ( N» I ) =X (N,  I  ) 

K  1  =  1 

2  CALL  KVAL  (TX,N) 

S  U  M  Y  =  0  . 

0  =  0.0 

DO  3  I  =  1  t  NCP 
CONI =VAP ( I ) *XX { I } 

I F ( ABS(Y(N* I )— CON  1 ) .LE.1.0E-04)  GO  TO  4 
0=1.0 

4  Y  (  N  »  I  )  =  C  0  N  1 

3  SUMY=SUMY+C0N1 

I F ( A 6 S ( SUMY-1.0 ) .GT . 1.0E-04)  GO  TO  5 
I F ( 0 . LE . 1.0E-04  )  GO  TO  10 

5  DO  6  1=1, NCP 

6  Y(N,  I )=Y(N, I ) /SUMY 
K 1  =  K  1  + 1 

I F ( K 1 . G T .30)  GO  TO  9 
Q  =  T  X  * ( 1.0+ (  1.0- SUMY ) /5.0) 

I F ( ABS(Q-TX) .LT.30.0)  GO  TO  8 
I  F ( (SUMY-i.O) .GE.O.  )  GO  TO  7 
TX=TX+30.0 
GO  TO  2 

7  TX=TX-30 . 0 
GO  TO  2 

8  T  X  =  Q 

GO  TO  2 

9  WRITE  (6,11) 

10  CONTINUE 

RETURN 

END 
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Univen 


FORTRAN  SOURCE  LIST 

ISN  SOURCE  STATEMENT 

0  $IBFTC  CFLCWR  NUOECK 

1  SUBROUTINE  CFLOWR(  ALIQO) 

C  ********  SUBROUTINE  USED  WITH  THIELE  GEODES  PROCEEDUKE  UNLV  *** 
C  ******  COMPONENT  FLOW  RATE  RATIOS  ARE  CALCULATED 

2  DIMENSION  ALIQ0(20) 

3  COMMON /TWO/  X ( 5 1 , 20 ) , Y { 51 ,20 )  , P , NCP , NTP , NF P , BOT , D I S T , AK ( 5  I , 20 ) 

4  COMMON/FOUR/  AV P { 50  )  ,  AL P ( 50  )  ,  T { 50  ) 

5  COMMON/ S I  A/  SHV (50)  »SHL(50),ALi0(50»20),ABF{50,20)  ,ASF( 50,20) 


7 

DO  103  N  =  1  ,  M 

10 

DO  103  1=1, NCP 

1  I 

103 

ABF (N, I ) =ALP (N) / ( AK { N, I ) *AVP ( N  )  ) 

14 

K  =  N  T  P  +  1 

15 

MK=NTP-NF P+1 

16 

DO  104  N  =  1  ,  MK 

17 

! 

n 

X 

20 

DO  104  1=1, NCP 

21 

104 

ASF ( M, I ) =AK ( M, I ) *AVP ( M ) /ALP (M) 

24 

DU  105  1=1, NCP 

25 

105 

AL I Q (  1  ,  I  ) =  A BF ( 1  ,  I  )* { AL I QO (  I  )  +  1  .  ) 

27 

M=NF  P-2 

30 

Du  106  N  =  1 ,  M 

31 

DO  106  1=1, NCP 

32 

106 

ALIQ(N+1,1  )=A8F(N+lt  I)*(ALIQ(N,I ) + 1 • 0 ) 

35 

DO  107  1=1, NCP 

30 

107 

ALIQINTP, I )=1.0 

40 

K  =  NT  P 

41 

KK=NTP— NFP 

42 

II 

-7 

CO 

o 

O 

a 

43 

M  =  K  -  N 

44 

DC  108  1=1, NCP 

45 

108 

AL I 0 ( M , I  )  =  AL I Q ( M  +  1  ,  I  ) * ASF ( M+ 1 ,  I  )  +  1 . 0 

50 

RETURN 

51 

End 
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FORTRAN  SOURCE  LIST 


ISM 


SOURCE  STATCMEN1 


0 

1 


2 

3 

4 

5 

6 
7 


$  I  BF TC  COMP  NODECK 

SUBROUTINE  COMP  {  DI  , 8 1  ) 

C  ********  SUBROUTINE  USED  WITH  THIELE  GLODtS  PROCEEDURE  ONLY  ******* 
C  *******  NORMALIZED  STAGE  COMPOSITIONS  ARE  CALCULATED 

COMMON/ TWO/  X( 51 ,20  )  ,  Y  (  51 ,20  )  , P»NCP,NTP,NFP,BOT  »DIST ,AK(51,20 ) 
COMMON/FOUR/  AVPI50)  ,  ALP (50) , T(50) 

COMMON/ S IX/  SHV ( 50)  , SHL ( 50)  , AL  IQ(50, 20) , A6F( 50,20)  , ASF (50,20) 
DIMENSION  DI ( 20 ) ,BI ( 20) 

M  =  N  F P— 1 
DO  39  7  N  = 1 , M 


10 

S  U  M  L  T  =  0 . 

11 

DU  114  1=1, NCP 

12 

114 

SUMLT=SUMLT+ALIQ(N, I )*DI (I) 

14 

DO  397  1  =  1  ,  NCP 

15 

397 

X  (N, I )=ALIQ(N, I )*DI ( I J/SUMLT 

20 

M=N  T P— NFP + 1 

21 

DO  390  N  =  1  »  M 

22 

MK=NTP+ 1— N 

23 

SUMLB=0* 

24 

DO  116  1=1, NCP 

25 

116 

SUML3  =  SUMLB+AL I Q ( MK ,  I  )*BI  (I) 

27 

DO  398  1=1, NCP 

30 

398 

X  (MK, I )=ALIQ(HK, I )*BI( I )/SUMLB 

33 

DO  503  M= 1 » NTP 

34 

SUMY  =  0 » 

35 

DO  504  1  =  1,. NCP 

36 

504 

SUMY=SUMY+X( N, I ) *AK ( N, I ) 

40 

DO  503  1  =  1,  NCP 

41 

50  3 

YIN,  I  )=X(N,  I  )  * AK ( N ,  l  I/SUMY 

44 

RETURN 

45 

END 
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SOURCE  STATEMENT 


FuRTRAN  SOURCE  LIST 


I  SN 


0  SIBFTC  CTEMP 

1  SUBROUTINE  CTEMP  ( T A  ,  TZ , K  , N , XR , PS I  ) 


C 

C 

2 

3 

4 

5 

6 
7 

10 
1 1 
12 

14 

15 

16 
21 

24 

25 

26 
27 
30 
33 

36 

37 
40 

43 

44 

45 

50 

51 

52 

53 


******  SUBROUTINE  USED  WITH  BERGAMINI  P  ROC  EE  DURE  ONLY  ************* 
*******  BERGAMINI  TEMPERATURE  CORRECTION  PROCEEDURE  ************* 
COMMON/ONE/  CT ( 20 ) , PC ( 20 } , W ( 20 ) , DELTA { 20 ) , VI { 20 ) , VAPI20 ) , A( 16, 3 ) 
1AA0BI 51 ) ,ZZ ( 51 )  , BBMIX ( 51 ) ,  DDEL  MX ( 5 1 ) , HL I Q , HVAP 
COMMON /TWO/  X(51,20),Y(51,20),P,NCP,NTP,NFP,BOT,DIST,AK(51,20) 
COMMON/ THREE/  JX,JA,JB,JC,JD,JE,JXX,FRAC,FRC,AA(4,20) 

DIMENSION  TCI  5)  , TAI 5  ),PSI  1^1,20) 

SUMTK=0. 

00  306  1=1, NCR 
XKK  =AK(K,  1  ) *  XR 

TK  =TA ( K ) +  ( AL0G10 I XRK  ) - ALGG 1 0  I AK ( K , I  )  ) ) / P S I ( N , I ) 

3G6  SUMTK=SUMTK+X(N , I )*TK 
TC(K)=SUMTK 

TAIK+l )=TA(K )+( 1C(K )-TA(K ) )/2. 

I F { ABS(TC(K)-TA(K) ) .LE.0.20)  GO  TO  307 
IFIK.GE.2)  GO  TO  308 
GO  TO  L8 
307  TZ=TA(K+1) 

GO  TO  18 

30  8  TZ=(TA(2)*TC(  1 ) —  T  A ( 1  )  *  T  C ( 2 ) )/( TA(2)+TC(1)-(TA(1)+TC(2)  ) ) 

I F ( XR.GE. 1.0)  GO  TO  8 
I  F ( TZ.GT.TA1K  +  1 )  )  GO  TO  9 
TZ=  T A  I K+ 1 ) 

GO  TO  7 

8  IF ( TZ.LT.TA(K+i ) )  GO  TO  9 
T  Z  =  T  A  ( '<+  1  ) 

GO  TO  7 

9  IF(ABS(TZ-TA(K+1)  ) «  L  T •  1 0 •  )  GU  TO  7 
TZ=(TA{K+1)+TA(K) ) / 2 • 0 

7  CONTINUE 
18  CONTINUE 
K  =  K  +  1 


t 


54  RETURN 


55  END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


SIBFTC  DEWPT  NODECK 

SUBROUTINE  DEWPT  (YY,TX,N) 

C***  SUBROUTINE  USED  WITH  BOTH  BERGAMINI  AND  THIELE  GEODES  PROGRAMS  *** 
C  *********  DEW  POINT  IS  CALCULATED 

COMMON /ONE/  CT(20),PC(20),W{20),DELTA(20),Vl(20),VAP(20),A(16,6), 

1 A AOB ( 5  1  ) , ZZ( 51)  »  BBM I  X ( 51)  ,  DUEL  MX ( 5 1 ) ,HLIQ,HVAP 
COMMON /TWO/  X(5  1t20) ,Y< 51,20) , P , NCP , NTP , NFP , BUT , DI ST , AK ( 5 1 ,20) 
COMMON/ THREE/ JX , JAl ,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA(4,20) 
DIMENSION  YYI20) 

11  FORMAT  (IX,  1 6H*  *  *  ERROR  03  ***,  42HDEWPT  MORE  THAN  THIRTY  TRIAlS  A 
IRE  REQUIRED  ) 

DO  1  1  =  1  » N  C  P 
Y(N,  1  )  =  Y Y {  I  ) 

1  X(N,  I  )=Y(N, I  ) 

K  1  =  1 

2  CALL  KVAL  ( TX,N  ) 

SUMX=0. 

0=0  . 

DO  3  1  =  1  ,  NCP 
CON 1=Y Y (  I ) /VAP(  I  ) 

I F ( AOS( X (N,  I  )-CUNl)  .LE.  1.06-04)  GO  TO  4 
0=1  .0 

4  X ( N  ,  I ) =CON 1 

3  SUHX=SUMX+C0N1 

IF( ABS( SUMX-1.0 ) . GT . 1.0E-04)  GO  TO  5 
IFtO.LE. 1.0E-04)  GO  TO  10 

5  DO  6  1  =  1, NCP 

6  X(N,  I)=X(N, I ) /SUMX 
K1  =  K  1+  1 

IFCK1.GT .30)  GO  TO  9 
G=  T X*  (  1 . 0-»  (  SUMX-1.0  )  / 5  •  0  ) 

I  F ( ABSIQ-TX ) .LT.30.  )  GO  TO  8 
I  F (  (SUMX-1.0) .GE.O.  )  GO  TO  7 
T  X  =  TX—  30 . 0 
GO  TO  2 

7  TX=TX+30.0 
GO  TO  2 

8  T  X  =  Q 

GO  TO  2 

9  WRITE  (6,11) 

10  CONTINUE 
RETURN 
END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  $  I  BE  TC  DISTIL  NODECK 

1  SUBROUTINE  DISTIL  ( T 0 , XXX , SHD I , HD V , N , YD , XD , K£ F XR , HL , H V , T ) 

C***  SUBROUTINE  USED  WITH  BOTH  BERGAM I N I  AND  THIELE  GEDDES  PROGRAMS  *** 
C  ***-##*#  DISTILLATE  CONDITIONS  ARE  CALCULATED  «•****#»* 

2  DIMENSION  XXX ( 20 ) , YD ( 20 ) , XD ( 20 ) 

3  CUM MON /ONE/  CT ( 20 ) »  PC ( 20 ) , W ( 20  ) , DELTA ( 20 ) , V U 20 )  , VAP ( 20 ) , A ( 16* 6 ) , 
l  AAOB ( 51 ) ,ZZ ( 51 )  ,68M I X( 51 ) ,DDE LMX ( 31 ) ,HLIG,NVAP 

4  COM MON /TWO/  X(51,20),Y(51,20),P,NCP*NTP*NFP,B0T.DIST,AK(51,20) 

5  COMMON/ THREE / JX ,JA1,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA(4,20) 

6  DIMENSION  T ( 50) 

7  T  X  =  T  D 


10 

T  Z  =  T  (  1  ) 

1 1 

GO  TO  (  5  »  6  )  ,  J  XX 

12 

5 

CALL  BUB PT  (XXX,TX,N) 

13 

CALL  HVAL  (  T X , Y Y , XX X , 2 , N  ) 

14 

SHD I=HL IG 

15 

DO  8  1=1, NCP 

16 

6 

XXX  (  I)=Y (  1  ,  I  ) 

20 

CALL  HVAL  (  TZ  , XXX, XX  ,1,1) 

21 

H  D  V  =  H  V  A  P 

22 

GO  TO  7 

23 

6 

DU  2  1=1, NCP 

24 

YD (  I  )=XXX {  I  ) 

25 

Y  (  N  »  I  )  =  Y  D  (  I  ) 

26 

2 

XXX<  I  )=Y(  1,  I  ) 

30 

CALL  HVAL  (TZ  , XXX, XX, 1,1) 

31 

H  0  V  =  H  V  A  P 

32 

I  X=  1 

33 

CALL  RIVAL  (N.TX, 1) 

34 

24 

S  U  M  X  =  0  . 

35 

C  K=  0  . 

36 

DO  10  1=1, NCP 

37 

CX=  YD (  I  ) /VAP (  I  ) 

40 

I  F (  ( ABS ( CX-XD (  I  )  )  -  1  -  0  E~04 ) .LE.O.O)  GO  TO  11 

43 

CK=  1.0 

44 

1  1 

XD (  I  )=CX 

45 

10 

SUMX=SUMX+XD( I ) 

47 

IF (  IX. GT  .  30  )  GO  TO  98 

52 

IX=  IX+1 

53 

I  F (  (ABS(SUMX— 1.  )  —  1 . 0 E—  04) .GT.O.O)  GO  TO  700 

5b 

IF  { CK .LE .0. )  GO  TO  99 

61 

700 

DO  16  1=1, NCP 

62 

16 

XU (  I  )  =XD (  I  ) /SUMX 

64 

DO  Z7  1=1, NCP 

65 

27 

X ( N, I ) =XD( I ) 

67 

Q=TX* (  1 .0+ ( SUMX-1 . ) /5. 0) 

70 

I F (  (ABS(Q-TX)-30.0) .LE.O.O)  GO  TO  21 

73 

I  F (  (SUMX-1. ). GT.O.O)  GO  TO  22 

76 

TX  =  TX—  30. 

77 

GU  TO  200 

100 

22 

TX=  TX  +  30 . 

101 

GU  TO  200 

102 

21 

TX  =  Q 

103 

200 

CALL  KVAL  ( TX ,N ) 

104 

GO  TO  24 
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ISN 


105  98  WRITE(6,29) 

106  29  FORMAT  UX,L6H***  ERROR  05  ***,47HM0RE  THAN  THIRTY  TRIALS  ARc  REOU 

LIKED  FOR  DISTIL  ) 

107  99  CONTINUE 

1L0  CALL  HVAL  (  I  X , Y D » XX ,  1 1 N  ) 

L 1 1  HV=HV AP 

L 12  CALL  HVAL  ( T X , Y Y , XD , 2 , N ) 

113  HL=HL I Q 

114  DFRAC  =  REFXR/ ( REFXR  +  1  .  ) 

115  SHD  I  =H V * { 1 ,-DFRAC ) +HL*DFRAC 

116  7  TD=TX 

117  RETURN 

120  END 
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16 
17 
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21 
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2  3 
24 
2b 
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30 

31 

32 

3  3 
34 
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37 

41 
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4  3 
44 
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50 

51 

52 


$  I  8FTC  FEED  NODECK 

SUBROUTINE  FEED  { TX , FX , XF I , YF I , N, SHF  I , XM T) 

C»**  SUBROUTINE  USED  WITH  BOTH  BERG AM  INI  AND  THIELE  GEDDES  PROGRAMS  *** 
C**a  FEED  TEMPERATURE,  ENTHALPY  AND  FEED  CONDITION  ARE  CALCULATED 

COM MON/ ONE/  CT( 20) , PC ( 20) , w ( 20 ) , DELTA (20 ) t VI (20) ,VAP (20) , A{ 16, 6) , 

1  A  A  0  B  ( 5  1 ) , Z  Z ( 5 1 J  »  BBM I  X ( 51)  ,DDELMX(51 ) ,HLIQ,HVAP 
COM  MON / T  WO /  X ( 5  L  ,  20  )  ,  Y ( b 1 , 2 0 ) , P , NC P , NTP , NF  P , BOT , D I S T , AK ( 5 1 , 2 0 ) 

COM MON /THREE/ JX ,JAi,JA2,JA3,JA4,JA5,JA6,JA7,JXX,FRAC,FRC,AA(4,20) 
DIMENSION  XL  I ( 20 )  ,YF I ( 20)  ,FX ( 20) 

DIMENSION  X  M  T  (  2  0  »  2 ) 

6  FORMAT  (  1 H  2 ) 

WR I TE( 6, 6  ) 

8  FORMAT  ( 1HS,25X , 14HFEED  CONDITION) 

WRITE (6,8) 

GO  TO  ( 31, 32, 33 ,33) , JX 

31  CALL  BUBPT  (FX,TX,N) 

TZ=TX-459.6 

WRITE  (6,12)  TZ 

CALL  HVAL  ( TX , Y Y , EX , 2 , N ) 

ShP  I  =  H L IL 
FR  AC=  l  .0 

12  FORMAT  (  IX,  10X,  14HL IQ  FEED  Tt MP= , F8 . 2 , 2H  F,5X,12HSAT  LIQ  FEED) 

GO  TO  131 

32  CALL  DEWPT  (FX,TX,N) 

T  Z  =  T  X—  4  5  9  •  6 

WRI Tt  (6,11)  TZ 

CALL  HVAL  ( TX,FX,XX, 1,N) 

SHF  I  =  HVAP 

11  FORMAT  (  IX  ,  10X,  1<+HVAP  FEED  TEMP= , F8 . 2 , 2H  F,5X,12HSAT  VAP  FEED) 

Fft AC=0 . 0 
GO  TO  131 

33  CALL  FLASH  ( T X , F X , N , XM T  ,  SHF  I  ) 

DO  3  1=1, NCP 

XFI ( I ) =X( N,  I  ) 

3  YFI  (  I  )=Y(N,  I  ) 

GO  Tu  (131  ,  131  ,  132,  132)  , JX 
132  CALL  HVAL  ( T X , Y Y , XL l , 2 , N ) 

H 1  =  HL  I  Q 

CALL  HVAL  ( T X , Y F I , X X , 1,N) 

H  2  =  H  V  A  P 

SHF  I  =FRAC*Hl+( 1 .-FRAC ) *H2 
131  CONTINUE 
WRITE(6»t>) 

RETURN 

END 
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FORTRAN  SOURCE  LlSl 


$  I  BET  C  FLASH  NODECK 

SUBROUTINE  FLASH  { TX , X  1 , N  ,  XMT , SHF  I ) 

C«*»  SUBROUTINE  USEC  WITH  BOTH  BERG AM  I N I  AND  THIELE  GEODES  PROGRAMS  *** 
C****  FLASH  TEMPERATURE  AND  CONDITION  IS  CALCULATED 

C*****  CONSTANT  TEMPERATURE  FLASH  OR  CONSTANT  FRACTION  LIQUID  SPEC. 

COMMON /ONE/  CT ( 20 ) , PC ( 20 ) , W ( 20  )  , DEL T A ( 20 ) , V 1 ( 20 ) , V AP ( 20 ) , A ( 1 6 , 6 ) , 

1 A  A  0  B ( 5 1 )  ,ZZ(51)  ,BBMIX(51)  ,DDELMX(51 )  ,HLIQ,HVAP 
COMMON/ TWO/  X  (  5  1 , 2  0  )  , Y(51  ,20) , P , NCP , N T P , NF P , BOT , D I S T , AK { 5 1 , 20 ) 
COMMON /THREE /JX , J A 1 , J A 2 , J A  3 , JA 4 , J A 5 , J A 6 , J A  7 , JXX , F R AC , F RC , A A ( 4 , 20 ) 
DIMENSION  X  1  ( 20 ) 

DIMENSION  XMT (20,2) 

T  Z=  TX 

I F { JX.E0.3)  GO  TO  12 
CALL  BUBPT  (X1,TX,N) 

T  L  =  T  X 

CALL  HVAL  ( TZ,YY,X1 ,2,N) 

HX  =  HL I  0 
TX  =  T  Z 

Call  DEWPT  (X1,TX,N) 

TU=  TX 

CALL  HVAL  (  TZ , X  1 , XX ,  1 , N ) 

H  V  =  H  V  A  P 

I F (  (TZ-TL) .GT.O.O)  GO  TO  4 

TX=TZ— 459.6 

WRITE(6,5)  TX 

JX  =  1 

SHF  I  =HX 

FRAC= 1 • 0 

5  FORMAT  (1X,16H***  ERROR  09  ***,22H  SPECIFIED  TEMPERATURE , F8 . 2 , 2H  F 
1  »  5X  » 19H  BELOW  BUBBLE  POINT) 

GO  TO  7 

4  IF (( TU-TZ ) .GT.O.O)  GO  TO  7 
TX=TZ— 459.6 
WR  I  Tl ( 6 , 8  )  TX 
JX=  2 
SHF  I  =  HV 
FK AC=0 . 

8  FORMAT  ( 1 X  » 16H*  **  ERROR  08  ***,22H  SPECIFIED  TEMPERATURE , F8 . 2 , 2H  F 
1 »  5X  »  L6H  ABOVE  DEW  POINT) 

7  CONTINUE 

GO  TO  (99,99, 12,9), JX 

9  FR AC=0 . 5 
GO  TO  13 

12  F  R  A  C  =  F  R  C 

13  CALL  KLVAL  (N,TZ,3) 

IX  =  0 

I  Y  =  0 
IZ  =  0 

24  SUM Y=0 . 

SUMX2=0. 

SUMX=0 . 

SUMX 1=0 . 

CK  =  0 . 

DO  10  1=1, NCP 
CON  1=1. 0— V  AP (  I ) 
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SOURCE  STATEMENT 

C  ON  2  =  F  R  A  C  *  CON  1  +  V  A  P (  1  ) 

CX  =  X  1  (  I  ) /CON 2 

I F (  ( AB  S ( CX-X ( N ,  I  )  ) -  1  . OE-04  )  .  L  E .0 . 0  )  GO  TO  IL 
CK  =  1 .0 
X  (  N  ,  I  )  =  CX 

YIN,  I  )  =  X  (  N  »  I  )  *  V  A  P  (  I  ) 

SUMX=SUMX+X { N, I  ) 

SUM Y=SUMY  + Y (  N  ,  I  ) 

0=X 1(1) *CGN 1/C0N2 
SUMX1  =  SUMX  1+0 
SUMX2=SUMX2+0«C0N1/C0N2 
DO  L  6  1  =  1  ,  N  C  P 
X ( N  »  I)=X(N» I )/SUMX 
Y ( M  »  I  ) =Y ( N  t I ) /SUMY 
I  X  =  I X  +  L 

I F (  IX.GE.31)  GO  TO  9  8 

IF{  (ABS( SUM XI  ) -  1 . OE- 04 )  .GT.0.0  )  GO  TO  17 

IF  (CK.LE.O.  )  GO  TU  99 

I  F ( JX.EQ.3  )  GO  TO  20 

CX=FRAC+SUMXi /SUMX2 

IF( CX.GT.O. )  GO  TU  LA 

I  F (  IY.GE.  10 )  GO  TO  99 

I  Y=  1Y+1 

FRAC=FRAC/2.0 

GO  TO  200 

I  F (  (CX-l.O)  .LT.O.O)  GO  TU  15 
I  F (  IZ.GE .  10 )  GO  TO  99 

I Z=  IZ+1 

F  R  A  C  = ( FRAC+1.0) /2.0 
GO  TO  200 
FR AC=CX 
GO  TO  200 

Q=FZ*{  1 . O  +  SUMX  L / 5 .0 ) 

I  F (  ( ABS ( Q— T  Z  )  —  30 . 0 ) .LE.O.O)  GO  TO  21 
I  F ( SUMX1 .GT.0.0 )  GO  FO  22 
TZ=  rZ-30. 

GO  TO  200 
TZ=TZ+30. 

GO  TO  200 
TZ  =  Q 

CALL  KVAL  ( TZ  , N  ) 

GO  TO  24 


1 FL  ASH  ) 


1 X  » 1 2HF  LASH  VAPOUR  ) 


15.8  ) 

T  X  =  T  Z 

TZ=TZ-459.6 

GO  TU  ( 300, 301, 302, 302) »JX 


8X  ,2HMF ,3X, 12HFLASH  LIQUID,  8X,  2HMF,3 


5X, 16 H FRACTION  LlQUID=,El 
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SOURCE  STATEMENT 

203 

WRI  TE ( 6, 2  3 ) 

204 

DO  28  1=1, NCR 

203 

2a 

WR  I  TE ( 6 , 26  )  ( XMT (  I , J  )  , J  =  1 ,2 ) , 

X  ( N  ,  I  )  ,  Y  (  H  f 

I  ) 

213 

RETURN 

214 

300 

WR I TE I 6 , 350 )  TZ 

213 

330 

FORMAT (  IX,  10X, 1 3 H LIQUID  TEMP 

1  S=»F8.2,2H 

F  ) 

216 

Rc  TURN 

217 

30  1 

WRITE (6, 331)  TZ 

220 

331 

FORMAT ( IX ,  10X , 1 5HVA POUR  TEMP 

I S=,F8.2,2H 

F  ) 

221 

RETURN 

222 

END 
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FURTRAN  SOURCE  LIST 

SOURCE  STATEMENT 
ilBFTC  GEODES  'lODtCK 

SUBROUTINE  GEODES  ( D I , B I , XF I , YFI » H XX  *  SHF  I ,  OQC ,DQR) 

C  THIEL  t-GEDDE  S  CALCULATION  P ROC EE DURE 

CHAO-SEADER  K  AND  H  VALUES 

AVERAGEING  TEMP  ANO  L I QU 1 0- V APOUR  PROFILES  AS  CONVERGENCE  FORCEING 

THETA  CONVERGENCE  METHOD 
BOUNDARY  SET  ON  THETA  AND  L-V  PROFILES 
V-PROFILE  VARIES  1C  PERCENT  ***** 

COMMON/ONE/  C  T( 20 ) , PC ( 20 ) , W ( 20 ) , DELTA ( 20 ) , V 1 ( 20 ) , V AP ( 20 ) , A ( 16 , 6  )  , 
1AA0B( 51 ) , LI ( 51 ) , BBM I  XI 51 ) » DDEL  MX ( 5 l ) , HL I Q , H VAP 
COMMON/ TWO/  X { 3  1 , 20  )  , Y { 51 ,20) , P,NCP ,NTP , NFP  ,BOT ,DI ST , AK ( 51 ,20 ) 
COMMON /THRE E / J X , J A 1 , J A 2 , J  A 3 , J A  4 , J A5 , J  A6 , J  A 7 , J  XX , FR AC , FRC , A A ( 4 , 20 ) 
COMMON/ FOUR/  AVP ( 50  )  , ALP ( 50 ) , T ( 50 ) 

COMMON/FIVE/  REFXR,  BXI (20 ) ,DXI ( 20) , TD, TW,TF ,FX( 20 ) 

COMMON /S  IX/  SHV ( 50 ) , SHL ( 50 ) , AL 1 0 {  50 , 2 0 )  , ABF ( 50  *  2 0 )  , ASF ( 50 , 20 ) 
DIMENSION  TT ( 50 ) , AVP1 ( 50) ,DL0R(20 ) , YD ( 20) ,  XD(20 ) , 

1BIDI ( 20) ,01  ( 20)  ,BI ( 20) » XX (20 ) »  YY( 20 ) t ALI00(20) » XFI ( 20) , YFI ( 20 ) 

DIMENSION  X M T { 2 0 , 2 ) 

6  FORMAT  (IX,  10X, 5E13 . 6) 

17  FORMAT  (  IX,  10X, E13.6  ) 

K  X  X  =  1 
KXN=1 

BOT=1.0-DIST 

CALCULATION  OF  ASSUMED  LINEAR  TEMPERATURE  PROFILE 
CGN=NT  P 

DEL= (TW-TD) /CON 
T (  1  )  =TD  +  DEL 
DO  10  N=2 » NTP 
10  T ( N ) =T ( N- 1 ) +DEL 

CALCULATION  OF  ASSUMED  LINEAR  VAPOUR  AND  LIQUID  PROFILES 

M=NFP-  1 
DO  8  N= I , M 
ALP (N ) =REFXR*D I  ST 

8  AVP(N)=(REFXR  +  1.  )*DIST 
M-N  T P- L 
DO  9  N=NFP,M 
ALP ( N ) =ALP ( NFP-  l  ) +FR AC 

9  AVP ( N )=AVP ( NFP-  I  )-(  l  .-FRAC ) 

AVP (NTP ) =AVP( NFP- I  )- (  1  .-FRAC ) 

ALP ( NTP ) =60T 
A V X  =  A V P ( NFP  ) 

AVP ( NFP ) =AVX+1.~FRAC 

STORAGE  OF  V  AND  T  PROFILES  TO  CHECK  WITH  NEWLY  CALCULA I  ED  ONES 

DO  469  N=  I , NTP 
469  A V P  I  ( N  )  =  A V P ( N ) 

DO  415  N  =  1  , N T P 
415  T  T ( N  )  =  T ( N ) 

WRITE (6,  17)  SHF  I 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  GEODES 


I  SN 


C  CALCULATION  OF  MOLAR  LIQUID  COMP  FLUW  RATE/TOP  PRODUCT  COMP  FLOW 

C  RATE  RATIOS  FOR  THE  ABSORPTION  SECT  AND  MOLAR  LIQUID  COMP  FLOW 

C  PATF/BOTTOMS  MOLAR  COMP  FLOW  RATE  RATIOS  FOR  THE  STRIPPING  SECT 

C 

52  DO  501  N=L,NTP 

53  TX=T ( N ) +459 . 6 

54  CALL  RIVAL  (N,TX,3) 

55  CO  501  1=1, NCP 

56  501  AKIN, 1  )  =  V A P (  I  ) 

61  GO  TO  (60,61  )  »  J  X  X 

62  61  T  X  =  T D  +  4  5  9 . 6 

63  CALL  K  1  VAL ( NTP+ 1 , TX , 3) 

64  DO  62  1=1, NCP 

65  62  DLORI  I  )  =  1./VAP(  i  ) 

67  GO  TO  60 

70  50  CONTINUE 

71  CO  200  N  =  1  , N T P 

72  TX=T (N ) +459. 6 

73  CALL  KVAL  (TX,N) 

74  DO  200  1=1, NCP 

75  AK< N,  I  )=VAP(  I  ) 

76  200  CONTINUE 

101  60  GO  TO  I  104 , i 05)  , JXX 

102  104  DO  107  1=1, NCP 

103  107  AL I QO (  I  )  =RE FXR 

105  GO  TO  66 

106  105  DO  108  1=1, NCP 

107  108  ALIQOI  I)=REFXR*DL0R(  I) 

111  t>6  CALL  CFLOWR  {  A L  I Q 0 ) 

C 

C  FEED  PLATE  MISMATCH  INCORPORATING  THETA  METHOD  OF  CONVERGENCE 

C  SETS  THE  CORRECTION  FOR  THE  NEW  ITERATION 

C 

112  SUMDI=0. 

113  DO  109  1  =  1, NCP 

114  ALQI  =  AL IQ( NFP,  I  )  *( AK( NFP , I ) *AVX/ALP (NFP )  ) +i .0 

115  GO  TO  (  121  ,  122,  123,  123 ) , JX 

116  121  Cl=l. 

117  C  2  =  0 . 

120  GO  TO  120 

121  122  C1=0. 

122  C2=  1 . 0 

123  GO  TO  120 

124  123  C1  =  FRAC#XF I (  I  )/FX( 1  ) 

125  C2=(1.-FRAC)*YFI(  I  )  / F X (  I  ) 

126  120  BIDI  l I  )  =  (ALIQ(NFP-1,  I  )+CL )/(ALQI~l.+C2) 

127  D  I  (  I  )  =F  X  I  I  )/(  1.0  +  BIDI (  I )  ) 

130  109  SUMDI-SUMDI+DII I) 

132  DEL  1= ( DI ST-SUMD  I  ) 

133  WRITE  16,  17)  DELI 

C  CONVERGENCE  CRITERION 

L  34  IFIKXN.LE.2)  GO  TO  15 

137  IF! ABSIDELl  )  .LE .  1 .06-04 . AND. ABSl 1.-THET1 ) .LE. 1.0E-03)  GO  TO  400 

142  15  CONTINUE 

C  THETA  CONVERGENCE 
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FORTRAN  SUURCF  LIST  GEODES 


ISN  SOURCE  STATEMENT 


143 

144 

145 

146 

147 

150 

151 

152 

153 

154 

156 

157 
160 
161 

C 

c 

c 

163 

C 

C 

c 

164 

165 

166 
167 

170 

171 

172 
174 
1  75 

176 

C 

C 

C 

177 
200 
20  1 
202 

C 

C 

C 


CALL  THETA  ( THE  1 1 ,FX  ,B  1DI  ) 

41  FORMAT ( 1 X  »  6 X i 1 8 HT HE T A  CON VERGE NCE= , F 8 . 5 ) 

WR  I  T  E ( 6 , 4  1  )  1 H E  T  1 

SUMD  1  =  0 . 

SUMB  I  =0. 

DO  113  1=1, NCR 

DI {  I  )=EX {  I ) / (  1.  +  THET  1*8 ID  I ( I ) ) 

BUI  )  =  THET  l  *B  ID  U  I  )  *  D  I  (  I  ) 

SUMDI=SUMOI+ D I (  f  ) 

113  SUMB  I  =  SUMB I +BI (  I  ) 

DO  712  1  =  1, NCP 
DX  I  (  I  )  =D  I  (  I  )  /SUf.DI 
XX (  1  )  =DX  1(1) 

712  BX I <  I  ) =B I (  I  ) /SUMB I 

CALCULATING  NORMALIZED  PLATE  COMPOSITIONS 

CALL  COMP  ( DI ,B  I  ) 

CALCULATION  OF  CONDENSER  CONDITION 

TD  =  T 0  +  459. 6 
T (  1  )  =  T (  1  )  +459.6 

CALL  DISTIL  (  TD,XX,  SLID  I  ,  HD  V  ,  NT  P+  1  ,  YD  ,  XD  ,  REFXR  ,HDX  ,  HDY  ,  T  (  1  )  ) 
T  (  1  ) =  T (  1  ) — 4 59 . 6 
TD=TD-459.6 
CO  42  1=1, NCP 

42  DLOR ( I  )  =  XD (  I  )  / YD (  I ) 

WRITEI6, 17)  HDV 

WR  I  TE ( 6 , 17)  SHDI 
WRITE  (6,17)  TO 

BUBBLE  POINT  CALCULATION  TO  CORRECT  TEMPERATURE  PROFILE 

DO  309  N=  1 ,  \iTP 
TX=T ( N ) +459. 6 
CALL  TEMP  ( TX,N ) 

309  T ( N  )  =TX-459.6 


CHECK  TEMP  PROFILE  TO  DECIDE  IF  L-V  CORRECTIONS  ARE  TO  BE  MADE 


204 

KXX  =  Q 

205 

CO  411  N  =  1  ,  IN  T  P 

206 

I  F ( ABS ( T T ( N ) - T ( N )  ) . LE.  10 

2  11 

K  XX=  1 

212 

41  1 

CONTINUE 

214 

CO  4  12  N  =  1 , NTP 

215 

T(N)=(T(N)+TT(N))/2.0 

216 

412 

T  T  (  N  )  =  T  (  N  ) 

220 

I  F ( KXX .EQ. 1 )  GO  TO  5  0 

)  GO  TO  411 


C 

C  ENTHALPY  BALANCES  ARE  USED  TO  CALCULATE  NEW  VAPOUR-LIQ  PROFILES 

C  CONDENSER  AND  REBOILER  HEAT  LOADS  ARE  CALCULATED 


C 
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FORTRAN  SUURCE  LIST  GEDDES 


ISN 

224 

225 

226 

900 

2  30 

231 

2  32 

233 

90  1 

235 

236 

237 

1 1  7 

24  1 

242 

915 

244 

245 

246 

247 

250 

251 

252 

30 

253 

254 

31 

255 

32 

256 

257 

260 

261 

262 

263 

14 

264 

2  71 

272 

16 

273 

300 

35  1 

30  1 

304 

305 

306 

350 

307 

310 

31  1 

40  0 

312 

313 

314 

SOURCE  STAIEMFNT 


T  X  =  T  { N ) +459*6 
DO  900  I  =  I,IMCP 
XX (  I  )-X { N,  I  ) 

CALL  HVAL  ( TX  ,YY,XX,2,N) 

SHL(N)=HL 10 
DO  901  I=1,NCP 
YY (  l  )  =  Y (N, I  ) 

CALL  HVAL  ( TX  ,YY,XX,1,N) 

SHV ( N ) =  H  V  A  P 
CONTINUE 
DU  915  I  -  1 , NCP 
Y Y (  I  )  = Y ( NFP, I  ) 

CALL  HVAL  ( T ( ME P ) +4 59 . 6 , Y Y  ,XX,1,NFP) 

HHH  =  HV  AP 

wRI  TE( 6,  17)  HHH 

SHV (NFP ) = ( ( 1 .-FRAC) * HHX +HHH* AV X ) / ( 1 .-FRAC+AVX ) 

DQC= ( HDV-SHD I )*DIST* ( REFXR+ l . ) 

GO  TO  ( 30, 31 ) , JXX 
DXD=SHD I 
GU  TG  32 
DXD=HD Y 

DQR=DXD*D I  ST  +  SHL ( NT  P )* { 1 . -D I  ST ) -SHF  I +DQC 
WRITE (6,  17)  DQC 
WRITE (6, 17)  DQR 

CALL  VPLQPI DOC, DQR, SHOI , SHF  I , A VP  1 , HDX , HD Y ) 

AVX= AVP ( NFP ) - 1 . O+FRAC 
Vi  R  I  T  E  (  6  ,  1 4  ) 

FORMAT! 1 X , 2  0  X  »  2  3  HNE  W  TEMPERATURE  PROFILE) 

WRITE l 6, 6)  (  T  (N  )  ,N= 1 ,NTP ) 

W  R  I  T  E  (  6 »  lt>) 

FORMAT ( IX, 20X, 18HNEW  VAPOUR  PROFILE) 

W  R  I  T  E  <  6  »  fc )  (AVP(N),N=ltNTP) 

FORMAT  (  IX* 1 6  H  *  *  *  ERROR  07  ***,71H SPECIFICATIONS  FOR  D  AND  THETA  N 
10T  MET  WITHIN  25  TRIALS  OF  L-V  PROFILES  ) 

I  F ( KXN . LF . 25 )  GO  TO  350 
WRITE (6, 351 ) 

GO  TO  400 
CONTINUE 
KXN=KXN+ L 
GO  TO  50 
CONTINUE 

A VP ( NFP ) =AVP(NFP )-l .+FRAC 

RETURN 

END 
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FORTRAN  SOURCE  LIST 


ISN 


SOURCE  STATEMENT 


0 

$  I  BE  TC 

GOLD  IT  NODECK 

1 

SUBROUTINE  GGLDIT  {  I , Z 1 , Z 2 , 2 , F 2 , Z A , ZB  ,  F  Z 1  ,  F 12  ) 

C 

DETERMINATION  OF  TRIAL  VALUES  CF  Z  FUR  GOLDEN 

2 

REAL  Z,Z1,Z2,ZA,ZB,D,FZ,FZ1,FZ2 

3 

INTEGER  I 

4 

DOUBLE  PRECISION  TAU 

5 

TAU  =  1.618033989 

6 

IF  <  I  .  E  Q . 3 )  GO  TO  3  04 

1  1 

IF  (  I  .  EC  .2  )  GO  TU  305 

14 

IF  (  I.EQ.  1 )  GO  TO  3  02 

17 

I  =1 

20 

301 

D  =  A  B  S (  { Z1-Z2)/ ( T  AU  *  *2  )  ) 

21 

Z  A  =  Z  L  +-  D 

22 

Z  =2  A 

23 

RETURN 

24 

302 

I  =2 

25 

FZ1  =FZ 

2b 

303 

D  =  ABS  (  (  7.1-12)/ (  T  AU  *  *  2  )  ) 

27 

ZB  =Z2-D 

30 

Z  =Z3 

31 

RETURN 

32 

304 

FZ1  =F  Z 

33 

GO  TO  306 

34 

305 

F  Z  2  =  F  Z 

35 

306 

IF  (FZ1.NE.FZ2)  GO  TO  307 

AO 

I  =1 

41 

Z1  =ZA 

4  2 

Z  2  =  ZB 

43 

GO  TG  301 

44 

307 

IF  (FZi.LT.FZ2)  GO  TO  308 

47 

I  =  2 

50 

Z1  =  Z  A 

51 

ZA  =ZB 

52 

FZ1  =FZ  2 

53 

GO  TO  303 

54 

308 

1  =  3 

55 

Z2  =  Z  B 

36 

ZB  =  Z  A 

57 

F  Z  2  =FZ 1 

bO 

GO  TO  301 

6  L 

END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0 

I 


3 

4 

5 

6 
7 

LG 

12 

15 

lb 

17 

20 

21 

23 

24 

25 


SIBFTC  HVAL  NODECK 

SUBROUTINE  HVAL  ( T , Y V , XX , LZ , N ) 

C***  SUBROUTINE  USED  WITH  BOTH  BERG AM  I N I  AND  THIELE  GEDDES  PROGRAMS 
C *******  CHAO-SEADER  H-VALUES  ARE  CALCULATED 

COM MON /ONE/  CT ( 20 ) , P C ( 20 ) , W { 20 ) , DEL TA ( 20 )  ,  V 1  ( 20 )  , VAP ( 2 0 ) , A ( 1 6 ,  l 
1AA0B( 51  )  ,  ZZ ( 51 )  ,BBM I  X ( 51 ) ,DDELMX  <  51 ) ,HLIQ , 

rnuuniii  /  Tun  /  \j  1  ■  i  ^  r\  \  \/  i  r t  -\  n  \  rn  urn  *  ,  t-  * .  r- 


»  * 


■**  IMA u~ otAUtK  n—  v ALUtb  AKt  LALUULA I EU 

COM MON /ONE/  C T ( 20 ) , PC ( 20 ) , W ( 20 ) , DELTA ( 20)  ,  V 1  ( 20 )  , VAP < 20 ) » A { 1 6 , 6 ) , 
•  AACJB  (  51  )  ,  ZZ  (  51  )  ,BBM I X( 51  )  » DDE  L  MX  (  51  )  ,HLIQ,HVAP 
COMMON/TWO/  X(5i,20),Y(51,20),P,NCP,NTP,NFP,B0T,DI$T,AK(51,20) 
COMMON/ THREE/ JX , J A 1 , J A2 , J A 3 , J A4 , J A5 , J Ab , J A7 , J XX , FR AC , FRC , A A ( 4 , 20 ) 
DIMENSION  HIDLI  20) , Y  Y ( 20 )  , XX ( 2  0 )  »HL (20)  »  H AC ( 20 )  ,  HF  C ( 20 ) 

Q=  T-459 • 6 


G 
DO 


1 


uu  1  1  =  1 » NCP 
HI0L(  I  )  = A A (  1,1) + A A ( 2 , I 
rm  7.FO.?i  r,n  JO  2 


H AC ( 20 )  , HF  C ( 20 ) 

)*q  +  AA(3,I  )*Q#*2+AA{4,I  )*Q*«3 


I  F ( LZ.EG.2) 

S  U  ^  H  V  =  0  . 

S  0  M  Y  =  0  • 

DO  3  1=1, NCP 
SUMY=SUMY+YY ( I ) 

3  SUMHV=SUMHV  +  YY(  I  )*HIDL( I ) 

H  =  B B M I  X { N ) »P/ZZ ( N ) 

H VC  = l  1 ,5*AA0B(N )*AL0G(  1 . 0  +  H )  +  1 . 0- Z Z ( N )  ) 


26 

GO  TO  7 

27 

2 

SUMHL=0. 

30 

DO  4  1=1, NCP 

31 

J=1 

32 

IF (  I  .EG. JA  1  ) 

GO 

TO 

12 

35 

I  F  (  I  .  E  0  *  J  A  2  ) 

GO 

TO 

1 1 

40 

I F (  I . EQ. J  A3  ) 

GO 

TO 

1  3 

4  3 

I  F (  I  .  EG . J A4 ) 

GO 

TU 

1  1 

46 

I  F (  I  .EQ.JA5) 

GO 

TO 

1  1 

51 

I  F (  I  .EQ. JAb ) 

GO 

TO 

14 

54 

I  F (  I.EQ. JA7) 

GO 

TO 

15 

57 

GO  TO  16 

60 

1  1 

J  =  2 

61 

GO  TO  16 

62 

12 

J  =  3 

63 

GO  TO  16 

64 

13 

J=4 

65 

GO  TO  16 

66 

14 

J  =  5 

67 

GO  TO  16 

70 

15 

J  =  6 

71 

16 

CONTINUE 

72 

TR=  T/C  T (  I  ) 

73 

P  R  =  P  /  P  C  (  I  ) 

74  C0N1=-A{ 2, J ) /TR**2  +  A ( 3 , J ) +2.0*A( 4, J ) *TR  +  3.0*A ( 5»  J ) *TR**2+ ( A  ( 7 , J )+2 

1.0*A(8,J)«TR)*PR4A(10,J)*PR**2+(A(12,J)-A(13,J)/TR**2+3.0*A(14,J)* 


2TR**2)*W( I ) 

75  CGN1=C0N1*2.30259/CT{ I ) 

76  HFC ( I ) =C0N  1 

77  HAC (  I )=-(  ( VI (  I ) * ( DELTA! I ) -DDEL  MX ( N )  )**2)/(1.987*(T**2)))*1.8 

100  HL ( I )=-[ HFC ( I )+HAC< I ) )*1. 987*T**2+HIDL( I ) 

101  4  SUMHL  =  SUMHL+XX(  I  )*HL (  I  ) 

103  HL I Q  =  SUMHL 

104  7  CONTINUE 
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22 
23 
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26 
31 

34 

35 
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37 
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44 

45 
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47 
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52 

53 

54 


'SIBFTC  INTERP  NODECK 

SUBROUTINE  INTERP  { MX  1  ,  MX2 , X , Y  ,  Z , X 1 f Y  1  ,  SMS  ) 

C  LINEAR  INTERPOLATION  SUBROUTINE  EOR  L/ V-MI N , L/ V-OPPERA T I NG  AND  SM/S 
DIMENSION  X ( 2 5 )  ,  Y ( 2 5 , 2 5  )  ,  Z ( 2 5 , 25  ) 

DO  21  I  =  1 »  MX  1 
I F ( X(  I  ) .GT.X1  )  GO  TO  22 
IF! MX1.EQ.  I  )  GO  TO  3  1 
GO  TO  21 
31  WRITE (6, 2) 

SM  S  =  1  . 

RETURN 

2  FORMAT  ( lXt 10X,  l0H****»ERR0R*10Xt22HMIN  (L/V)  GREATER  1.0) 

22  0 E L  =  X  1  - X (  1-1  ) 

D=X {  I  ) -X ( I—  1  ) 

K=  I  —  1 

GU  TO  23 
21  CONTINUE 

23  DO  35  J=  1 »  MX2 

I E (  Y!K,J).GT.  Yl)  GO  TO  25 
I F ( J.EQ.MX2)  GO  TO  24 
GU  TO  35 

24  WR I TE ( 6 »  3 ) 

SMS= 1 • 

RETURN 

FORMAT!  IX,  10X , 1  OH*** **ERROR , 10 X » 29H0P ER AT  I NG  (L/V)  GREATER  1.0  ) 

S 1 1= (  Y(K+l»J)*DEL+( D—  DEL)*  Y(K,J))/U 
S 1 2= (  Y(K+1, J-l )*DEL+(0-DEL)*  Y(K,J-1))/D 
Z  1 1=(Z ( K  +  l, J )*OEL+( O-DEL  )*Z  (K,J)  )/0 
Z12=(Z(K  +  1,J-1) #DEL  +  ( D-DEL )*Z ( K, J-l ) ) /D 
CEL  1  =  Y  1-S12 
D  1  =  S  1 1-S  12 
GO  TO  28 
CONTINUE 

SMS=(DELl*Zll  +  { D 1-DEL  1 )*Z12)/D1 
RETURN 
END 
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0 

SI BFTC 

IN1TRP  NODECK 

1 

SUBROUTINE  IN1T<P  (  XL  ,  YL  ,  X  ,  Y  ,  Z  ,  X  1  ,  Y  1  ,  YF  ) 

c  *  «  * 

LAGRANGIAN  INTERPOLATION  SUBROUTINE 

2 

INTEGER  XL  ,  YL 

3 

DIMENSION  X(25),Y(25,25),Z(25,25),YT(25) 

4 

7 

FORMAT (  1 X , E  15.8  } 

5 

DO  1.0  1  =  1,  XL 

6 

L=  I 

7 

10 

IFIXl.LT. X(  I  )  )  GO  TO  11 

13 

X1  =  X (L  ) 

14 

1  1 

Li=L-4 

15 

L2=L-1 

16 

IF(Ll.GT.O)  GO  TO  12 

21 

IFtLl.GT. (-1) )  GO  TO  13 

24 

CALL  INTERP  ( XL , YL, X, Y,Z,X1 , Y1  ,YF ) 

25 

RETURN 

26 

1  3 

L  1=  1 

27 

12 

DU  50  L  =  L 1 , L 2 

30 

DO  14  1=1, YL 

31 

K=  I 

32 

14 

I  F ( Yl.LT.Yl L,  I  )  )  GO  TO  15 

36 

YF=  1.0 

37 

RETURN 

40 

15 

K 1=K— 2 

41 

K2  =  K  + 1 

42 

IF(Kl.EQ.O)  K  1=  1 

45 

IFIK2.LE.YL)  GO  TO  16 

50 

K2  =  YL 

51 

K 1  =  YL—  3 

52 

16 

YT ( L  )  =0 . 0 

53 

DO  50  IK=Kl,K2 

54 

YP=  i  .00 

55 

DO  17  JK=K1,K2 

56 

IF  (JK.EU.IK)  GO  TU  17 

61 

XZ= ( Yl-Y ( L , JK) ) / ( Y( L , IK)-Y(L, JK)  ) 

62 

YP=YP*XZ 

63 

17 

CONTINUE 

65 

50 

YT ( L  )=YT ( L  )+YP*Z ( L,  IK) 

70 

YF=0 . 00 

71 

DO  18  I  L  =  L 1 , L2 

72 

YP=  1.00 

73 

DU  19  JL=L 1 , L2 

74 

IF  ( JL.EQ. IL  )  GO  TO  19 

n 

XR= (Xl-X(JL)  )  / ( X (  IL)-X(JL)  ) 

100 

Y  P  =  Y  P  *  X  R 

101 

WRITE (6, 7)  YT(IL) 

102 

19 

CONTINUE 

104 

WRITE (6, 7)  YP 

105 

18 

YF= YF+YP*YT { I L ) 

107 

WRITE (6, 7)  YF 

110 

RETURN 

L  1  1 

END 
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$  I BFTC  1N2PUT  NODECK 

SUBROUTINE  IN2PUT  ( MX i ,MX2 . B , C ,D ) 

C  INPUT  DATA  FOR  INTERPOLATION  SUBROUTINE 
DIMENSION  8(25) ,  C  (  2  5 , 2  5  ) , D ( 2 5  »  25 ) 

I  FORMAT (  IX,  1  LF6. 4  ) 

MX  1  =  22 
M  X  2  =  2  2 

READ(5,1)(B(I),  I  =  1, M  X 1 ) 

MX  1 =2 1 

READ (  5 , 1  )  (  (  C(  I  »J)»J=1*MX2) » I =  1  *  M  X  1  ) 
READ(5, 1 ) (  (D(  I , J ) , J  =  1 ,MX2  )  , 1  =  1  ,MX1  ) 

MX  2  =  21 
RE  TURN 
END 
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SIBFTC  KVAL  NODECK 

SUBROUTINE  KVAL  (TX,N) 

C  *  *  *  SUBROUTINE  USED  WITH  BOTH  BERGAMINI  AND  THIELE  GEDUES  PROGRAMS  *** 
C********  CHAO- St ADER  K-RATIOS 

CUM MON /ONE  /  CT{20)fPC(20),W(20),DELTA(20),Vll20),VAP{20)fA(l6f6), 

1 AAOB ( 5 1 ) t  ZZ ( 5  1  )  ,  BBM I  X {  51)  ,ODtL  MX ( 5 1 ) , H L I Q , H VAP 
CUM MON / T  WO/  X ( 5 1 , 20 ) , Y ( 5 1 , 20 ) »  P , NCP , NT P , NFP , BOT , 0 1  ST , AK ( 51 , 20 ) 

COM MON/ THREE /JX ,JA1,JA2,JA3,JA4,JA5 , J A6 ,  J A  7 , J XX , F R AC  T F RC , A A ( 4 , 20 ) 
DIMENSION  F  J  U ( 2  0 )  , A*K ( 20 )  , BRK ( 20 )  , PH  I ( 20 )  ,  GAM (20)  , VAPL (20) 

200  FORMAT  (1X,16H***  ERROR  02  ***,55H  MURE  THAN  THIRTY  TRIALS  ARE  REQ 
1 1  RED  FOR  Z  CONVERGENCE  ) 

DO  101  1=1, NCP 
J  =  1 


IF (  I.EU.JA1) 

GO 

TO 

1? 

IF (  I.EQ. JA2 ) 

GO 

TO 

1  1 

I  F {  I  .  EO . J A3  ) 

GO 

TO 

1  3 

IF (  I  ,EQ. JA4) 

GO 

TO 

1  1 

IF (  I  .EO. JAB ) 

GU 

TO 

1  1 

IF (  I  .EQ. JA6  ) 

GO 

TO 

14 

IF (  I  .EO. JA  7  ) 

GO 

TO 

I  5 

GU  TO 

16 

1  1 

J  =  2 

GO  TO 

16 

12 

J  =  3 

GO  TO 

16 

13 

J  =  4 

GO  TO 

16 

14 

J  =  5 

GO  TO 

16 

15 

J  =  6 

16 

CONTINUE 

TR  =  TX/CT (  I  ) 

PR=P/PC (  I  ) 

FPO=A( 1, J ) +A( 2, J ) /TR+A<  3, J )*TR+A {4, J) *TR**2  +  A  <5, J) *TR**3+( A( 6, J)+A 
1 ( 7  >  J ) *TR  +  A ( 8 , J ) *TR**2)*PR+(A l 9 , J ) +A ( 1 0 , J ) * TR ) *PR**2- AL OG ( PR ) / 2 . 303 
FPI=(A(11,J)+A(12,J)*TR+A(13,J  )  /  TR  + A  (  14,J)*TR**3+A(15,J)  *( PR-0.6)  ) 
10  1  FNU (  I  )  =  ( FPO  +  W (  I  )  *FP  I  )  *2. 303 
AM  I  X  =  0 . 0 
BMI X  =  0 .0 
DU  102  1=1, NCP 
TR=  TX/CT (  I  ) 

ARK (  1 )  =  ( 0.42  7  8/ ( PC(  I  )*TR**2.5)  )**0.5 
BRK (  I  )  =  0 . 0867 / ( PC (  I  )  *  TR ) 

8MIX=BMIX  +  BRK(  I  )*Y(N,  I  ) 

102  AM  I X  =  AM  I  X  +  ARK (  I  ) * Y ( N  ,  I  ) 

AOB  =  AM  I  X* AM  I X/BM I  X 
CON  1  =  2.0 

CON  2  =  BM  T  X  *P  +  0 . 0  0 1 
DO  1.06  K=  1 , 30 
Z  A  S  = ( C  ON  1 +CUN  2 ) /2.0 
H=8M  IX»P/ZAS 

Z=1.0/(  1 . 0— H ) - AOB* (H/(  l.O+H)  ) 

D£L=Z-ZAS 

IF( ABS(DEL  ).LE.  1.0E-04)  GO  TU  107 
I F ( DtL.LT.O.O)  GO  TO  104 
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112 
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I  F  {  DEL . GT . 0 . )  GO  TO  105 

104  CON 1  =  Z  AS 
GO  TO  106 

105  C0N2  =  Z AS 

106  CONTINUE 
WR1  IE ( 6, 200  ) 

L 0 7  DO  108  1  =  1, NCP 

108  PHI  (  I  )  =  (  7.-1 .0)*  (  BRK  {  I  )  /BM  I  X  )  -A  LOG  (  Z-BM  I  X*  P  )  -  AGB*  (  (  2. 0*ARK(  £  )  )  /  AMI  X 
1  — ( B  R  K l  1 ) / B  M I X )  ) *ALOG(  1.0  +  H) 

CON  L  =0 . 0 
CON 2=0.0 
DO  109  1  =  1,  NCP 
DELMX  =  X  (  N,  1  )  *>/l  (  I  ) 

CON 1=C0N 1 +DELMX 

109  C0N2=C0N2+DELMX*DELTA( I ) 

DELMX=C0N2/C0N1 
C0N1=1.987*TX/1 .8 

UO  110  1  =  1,  NCP 

GAM (  I  )  =V  1(  I  )  *( DELTA (  I )-DELMX)**2/C0Nl 
VAPL1  I  )  =  ( FNU (  I ) +  GAM (  I  )-PHI  ( 1 )  ) 

110  VAP (  I ) =EXP( VAPL (  I  )  ) 

AAQBIN )=AOB 

BBM I X ( N ) =BM  I  X 
ZZ(N)=Z 

DDE  L MX ( N )  =  DELMX 

RETURN 

END 
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SIBFTC  K1VAL  NODECK 

SUBROUTINE  K1VAL  (  N  *  T  X  ,  L  L  ) 

C***  SUBROUTINE  USED  WITH  BOTH  BERGAMINI  AND  THIELE  GEDDES  PROGRAMS  *** 
C*»***«**  IDEAL  K-RATIOS  AS  A  FUNCTION  OF  TR  AND  PR  ONLY 

COMMON /ONE /  CT( 20) ,PCt  20) ,W( 20 ) , DELTA (20)  ,  VI (20)  ,VAP(20),A(1S,6), 

1 A  A  0  B ( 5 l),ZZ(51),BBMIX(5l) , DDELMX ( 5 1  )  , HL I Q , h VAP 
COM MON/ 1  WO/  X(bl,20)  ,Y(51  ,20) , P , NC P , NTP , NF P , BOT , D I S T , AK ( 5 1 , 20 ) 
COMMON/ THREE/ JX , J A 1 , J A 2 , J A3 , J A 4 ,  J A 5 , J A6 , J A 7 , J XX , FR AC , FRC ♦ A A ( 4 , 20 ) 
DIMENSION  FNi  (20) ,AKK( 20) 

DO  1  I=1,NCP 
J=1 


IF  ( 

I.EQ-JA1) 

GO 

ro 

12 

I  F  ( 

I  .  E  Q  .  J  A  2  ) 

GO 

TO 

11 

IF  ( 

I  .  E  Q  .  J  A  3  ) 

GO 

TO 

13 

I  E (  I.EQ.JA4) 

GO 

TO 

1 1 

I  E  (  I  .  E  Q  .  J  A  5  ) 

GO 

TO 

1  1 

I  F  ( 

I  •  E  Q  •  J  A  6  ) 

GO 

TO 

14 

l  E  ( 

I  .  EQ- J  A  7 ) 

GO 

TO 

15 

GO  TO  16 

1  I  J  =  2 

GO  TO  16 

12  J  =  3 

GG  TO  16 

13  J  -  4 

GO  TO  16 

14  J  =  5 

GO  TO  16 

15  J  =  6 

16  CONTINUE 
TR=TX/CT ( I ) 

PR=P/PC { I ) 

FP1  =  A( 1, J  )+A( 2, J ) /TR+A ( 3, J )*TR+A(4, J ) *TR**2  +  A (5, J ) *TR**3+( A(6, J)+A 
1  ( 7, J )*TR  +  A( 8, J) *TR**2 ) *PR+( A (9, J )+A ( 10, J ) »TR) *PR**2-AL0G(PR) /2.303 
FP2=(A(11»J)+A(  12, J  )*TR  +  A(13,J  )/TR  +  A(L4,J)*TR**3  +  A(15,J)*(PR-0.6)  ) 
FNI  (  I  )  =  (FP1+W( I  )  *FP2  )  *2 . 303 

1  ARK (  I ) =E XP ( FN  1  (  I  )  ) 

CO  99  1=1, NCP 

99  VAP (  I  )=AKK(  I  ) 

IF(LL.EQ.3)  GO  TO  5 
I F ( LL • EQ . 2 )  GO  TO  3 
DO  2  1=1, NCP 

2  X(N,I)=Y(N,I) / AKK ( I ) 

GO  TO  5 

3  DO  4  1=1, NCP 

4  Y(N, I )=X(N, I ) *AKK( I ) 

5  CONTINUE 
RETURN 
END 
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$I8ETC  PHYS  NOOECK 

SUBROUT  I  ME  PHYS  ( NC  »  XMT  ) 

C  ********  SUBROUTINE  USED  WITH  THIELE  GEDDES  P ROC EE DURE  UNLY  ******* 
C***  PHYSICAL  PROPERTIES  ARE  CALCULATED  EUR  HYPOTHETICAL  COMPONENTS 
C* ************* *  TO  CALCULATE  CHAO-SEADER  K-RATIOS  AND  H-VALuES  ******** 

C  * ******  - CAVETTES  METHOD  - 

COMMON/ONE /  CT(20),PC(20),w(20),DELTA(^0),Vl(20)tVAP(20)rA(l6,6), 
1AA0B( 51 ) , ZZ( 51 )  ,  BBM I X( 51 )  ,  D D E L  M X ( 5 1 )  ,HLI Q  ,HVAP 
COMMON /TWO/  X(51*20 ) t Y(51 .20) *P»NCP» NTPt NFP,BOT*DIST  »AK(51 f20) 
COMMON/ THREE /JX , JA1 , JA2, JA3, JA4, JA5, JA6t  JA7, JXX, FRAC,FRC,AA(4,20 ) 
COMMON/FIVE/  REFXR,  BX I ( 20  )  » OX  I  ( 20 )  , TD , Tw , TF , FX { 20 ) 

DIMENSION  XMT (20, 2) 

33  FORMAT (IX*  E  14. 7 ) 

50  FORMAT ( 1 X , 7F8 .3 , 1 IX , 2A6 ) 

M=NC  + L 

DU  20  I  =  M » N  C P 

READ ( 5*  50 ) BPCA, BMLA »  BPMNA  » TC 1 , PC  1 , AP I  , XXWM , ( XMT ( I , J ) , J= 1 , 2 ) 

READ  (5,33)  FX(  I  ) 

SPG=141.5/( API+131.5) 

IF( BPMNA. EQ.O. )  GO  TO  1 
GO  TO  2 

1  BPMNA= ( BPCA+6ML A) /2 .0 

2  X K H 0=  0 . 9 8  7 0  7  * SP  G 
V  I (  I )=XXWM/XRHU 

UOPK=(  (HP.’1NA  +  4!>9.6)  **(  1.0/3.0)  J/SPG 
IF( TCI. EQ.O.)  GO  TO  3 
GO  TO  4 

3  I F { BMLA. EQ.O. )  GO  TO  9 
BP=  BMLA 

GO  TO  11 
9  BP=  BPMNA 
11  CONTINUE 

TCl=763.07121+( 1 . 7 1 3 3693-0 . 1 08 34003E-02*BP  )*BP 
To 1=TC 1-0.892 125 79E-02*AP I *BP  +0 . 38890584E-06*BP  **3 

TC  1  =  TC 1 + (  ( 0 . 5 30 9492 OE- 05  +  0. 32 7  1 1 600E-0 7* AP I )*Apl)*BP  **2 

4  CT (  I  )  =  TC  1 

IF ( PCI  .EQ.O.  )  GO  TO  5 
GO  TO  6 

5  PC  1  =  2. 8290406+1 0 . 94 1 20  1 09E- 0 3- U . 304  74 7 49E-05 * B PMN A ) * BPMNA 
PC l=PCl-0. 20876ll0E-04*API*BPMNA+0. 1 5 1 84 1 03E -08 * BP MN A* *3 
PC l  =  PC  1+ ( ( + . 11 0 47899 E- 07+0. 1 3949619E-09* AP I ) * API ) * BPMNA* *2 
PC1=PC1-0.48271599E-07*AP I**2*BPMNA 

PC1=EXP  ( PC1*2. 303) 

6  PCI  I  )=PC1 
BP=BPMNA+459 . 6 

W( 1 )=( 3. 0/7.0) * ( ( ALOGI PCI / 14. 696) }/2.303>/(TCl/BP-1.0)-l.0 
DEHV=  { 7 . 58+4 .5  71*( ALOG(BP  )  ) /2.303) *  < BPMNA +  45 9. 6) /I . 8 
D  E  H  V  =  D  E  H  V  * ((TC 1-537.  ) / ( TC 1- ( B P MNA  +  459. 6 )  )  ) **0.38 
DELTA!  I )  =( ( DEHV-592 .4  ) /VI ( I )  )  **0.5 

A  A ( 3  » I )  =  X  X  W  M  * ( 3. 10  73  I65E-04-5. 832 381E-08*AP I ) 

A  A  (  4  ,  I  )  =  X  X  M  *  (  9. 17450I9E  -  1  1  *  Ap  1  -  d  .  6  3  34  748E-08  ) 

HB=-. 81862040+  ( -2 . 8568654E-05+ 1 . 7024654E-06 *AP I ) *API 

HB=HB— 1.4886832E— 08*API**3  -3 .0836492E-04*U0PK**3 

HB=HB+ ( 8 .8395563E-02+4. 293470 3 E-0 3 *UOPK ) *UUPK 
A  A ( 2  » I  )  =XXWM*HB 
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7  6  HB=  L 88. 2 5000+ ( 3 .5^4 2  502- ( 5 . 27 1  6944E-02-3 . 5353777E-04* AP  I  )  *API ) *API 

77  HB=HB- ( 8.9330784-3. 5 1 1 8 58 1E-0 1 *UOPK ) * UOPK* *2 

LOO  HB=HB+( 43.40  L6 18-5. 9 56 38896-03* API ) *UQPK 

L 0  I  A A ( 1 1 I  )  =  XXWM*  HB 

102  20  CONTINUE 

104  RETURN 

105  END 
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FORTRAN  SOURCE  LIST 


ISN 


0  SIBFTC  PSY  NODECK 

C  *«■***»  SUBROUTINE  USED  WITH  BERGAM  IN  I  PROCEEDURE  ONLY  **-»*«■***«•*»** 

C  * *******  SLOP  E  OF  LOG  K  VS  TEMP  CALCULATED  ************* 

1  SUBROUTINE  ^SY  (TX,K,N,PSI) 

2  COMMON/ONE/  C T ( 20 ) , PC ( 20 )  ,W(20  )  , DELTA (20 ) , VI ( 20) , VAP( 20  )  , A(  16, 3  )  , 
1 A  AO  B ( 5 l ) , Z  Z ( 5  1 )  »  B  BN  I  X ( 5 1 )  » DDEL  MX { 5 1 )  , HL I Q , HVAP 

3  COMMON/ TWO/  X(51,20),Y(bl,20) , P , NC P , NTP , NF P , BOT , D I  ST , AK ( 5 1  ,20) 

A  COMMON/THREE/  J X , JA , JB , JC , JD , J E , JXX , F RAC , FRC , AA ( 4, 20 ) 

5  DIMENSION  CK ( 20  )  ,  PS  I  ( 5 1 , 20 ) 

6  TB-TX+5.0 

7  CALL  KVAL  ( TB,N  ) 

10  DO  1  1=1, NCR 

11  CK(  I )  =  V A P {  l  ) 

12  1  PSI (N,  I )  =  ( AL0G10(CK(  I  )  ) -ALGG10 ( AK ( K  ,  I  )  )  ) /5.0 

14  RETURN 

15  END 
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0  $  I BF TC  SINPUT 

1  SUBROUTINE  SINPUT  ( NC , NHC , D I , B  I , F I , P , R ARM  ,  I LK , I HK , TF , XMT ,  I TERP ) 

C  SHORTCUT  INPUT  SUBROUTINE 

2  COMMON /ONE/  CT ( 20  ) , P C ( 20 ) , W ( 20 ) , DEL TA ( 20 ) , VI ( 20 ) , V AP ( 20 ) , A ( 16 , 6 ) , 
1 A AOB ( 5  I ) »  Z  Z  (  5  1 )  , BBM I  X ( 5  1  )  ,  ODE  L  MX (SI ) »  HL I Q  »  HV AP 

3  COMMON/ THREE/ JX ,JA1,JA2,JA3,JA4,JA3,JA6,JA7,JXX,FRAC,FKC,AA(4,20) 

4  DIMENSION  D I ( 20 ) , B I ( 20 ) , F I ( 20 ) 

5  DIMENSION  XMT(20,2) 

6  2  FORMAT! 1X,2F/.1 ,  F 7. 4 , F6 . 3 , F  7. 2 , 33X ,  246 ) 

7  3  FORMAT ( IX, 3E14. 7 ) 

10  4  FORMAT!  IX,  4E 14. 7) 

11  17  FORMAT  ( IX , 213) 

12  18  FORMAT  (  1 X , 4  I  3 , F8 . 5 , 2F 8 . 2 , I  3 ) 

13  19  FORMAT ( 1 X , F 8 . 5 , 713) 

14  100  FORMAT ( 8F 10 . 6 ) 

15  READ  (5,18)  NC , NHC , J X , J XX , R ARM  ,TF,P,ITERP 

23  READ! 5, 1 7 )  ILK, I HK 

26  RE AD ( 5 , 19 )  FRC , J A  1 , J A2 , J A  3 , J A4 , J A 5 , J A6 , J A  7 

36  DO  1  1=1, NC 

37  RE AD l 5 , 2 )  C T (  I )  , P C {  I  ) , W  !  I  )  , DEL TA (I)  ,  V  1  ( I  )  ,  ( XM T ( I , J )  ,  J  =  1 , 2  ) 

44  READ  (5,3)  FI ( I ) ,DI ( I ) , B I ( I ) 

45  1  REAC! 5,4 )  ( A A ( J,  I  ) , J  = 1 , 4 ) 

53  READ(5, 100) ! ( A ( I , J ) , 1=1,16) , J= 1 , 6  ) 

64  RETURN 

65  END 
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0  $  I BFTC  SOUTPT  rsiODtCK 

1  SUBROUTINE  SOUTPT  (  DQC  »  DQR  ,  AN  »  SZ , XMT , RM ) 

C  OUTPUT  SUBROUTINE  FOR  SHORTCUT  METHOD 

2  CUM MON /TWO/  X  (  5 1 »  20  )  ,  Y  (  5  1 , 2  0  ) , P , NCP , NTP , NF P , BOT , DI ST , AK ( 5 1 , 20 ) 

3  CUMMON/FIVE/  REFXR,  BX I { 20  )  , DXI  ( 20 )  , TD  ,  TW , TF , FX ( 20 ) 

4  DIMENSION  XMT (2 0,2) 

5  WRITE (o,3) 

6  3  FORMAT  (  1 H2 ) 

7  WRITE (6,1) 

10  1  FORMAT  (  IMS , 2 7X *  16HSH0R I  CUT  METHOD) 

11  2  FORMAT  ( 1HS,25X,22H8ASIS  ONE  LB-MOLE  FEED) 

12  Wk I T  E ( 6  »  2 ) 

13  WR  I  TE  (  6,  1 5  )  RM 

14  15  FORMAT  (  lt-S,  20X,  24HSH0R  TCUT  MINIMUM  REFLUX=  ,  F8 . 4  ) 

15  4  FORMAT (  1HS ,  10X, 56HSH0RTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  TOTAL 

I  REFLUX =,F8. 4) 

16  WR I  TE ( 6 , 4  )  AN 

17  5  FORMAT (  1HS,  10X»58HSHORTCUT  NUMBER  OF  THEORETICAL  PLATES  AT  UPERAT I 

INC  RtFLUX=,F8.4) 

20  WRI T  E ( 6 , 5  )  SZ 

21  6  FORMAT ( 1HS,  15X,  16 HD ISTILL ATE  TEMP=,F8.3,  5X,25HNO  OF  THEORETICAL  P 

1 L  A  T  E  S  = , 14  ) 

22  W R I T E ( 6 , 6  )  TD , NTP 

23  7  FORMAT ( 1HS,9X, 1 3HREFLUX  RATIU=,F8.5,  2X, 1 6HDI ST  I LLATE  RATE=,F8.5, 

1  2 X  , 14HFEED  PLATE  N0=,I3) 

24  WR I TE ( 6, 14  )  TW»P 

25  14  FORMAT  ( 1HT , 15X, 13H BOTTOMS  TEMP= , F8 . 3 , 2H  F , 5X , 1 6HC0LUMN  PRESSURE^, 

1 F  8 . 3 , 5  H  PST  A) 

2o  wR I TE ( 6 , 7 )  REFXR , D I  ST , NFP 

27  8  FORMAT  ( 1HT,1 OX, 2 OH CONDENSER  HEAT  L OAD= , E 1 5 . 3 , 2 X , 1 9HB T U/ L B  MOLE  FE 

1  ED  ) 

30  9  FORMAT  ( 1HT  » 10X , 2 OH REBOILER  HEAT  LOAD= , E 1 5. 8 , 2X , 19HBTU/LB  MULE  FE 

1  ED  ) 

31  WR I TE ( 6, 8  )  DCC 

32  WRITE(6,9)  DQR 

33  10  FORMAT ( 1HS , 25X, 30HCUMP0SI TIONS  IN  MOLE  FRACTIONS) 

34  WR I TE ( 6 , 10 ) 

35  11  FORMAT ( 1HJ, 5X,9HC0MP0NENT,5X, 10H  FEED  , 1  OX , 1 OHQ I  ST  1 LL A T E , 7 X  ,  1 0 

1H  BOTTOMS  ) 

36  WR I TE ( 6 , 1 1  ) 

37  13  FORMAT ( 1X,4X»2A6,3X,E15.8,  5X,E15.8,  5X,E15.8) 

40  DO  12  1=1, NCP 

41  12  WRITE(6,13)  ( XM T ( I , J ) , J = 1 , 2 ) , F X ( I ) , DX I ( I ) , BX I ( I ) 

47  WR I TE ( 6 , 3 ) 

50  RETURN 

51  END 
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$  I BFTC  SPFYS  NODECK 

SUBROUTINE  SPHYS  ( NC » XMT ♦ F 1 , 0  I »B  I  ) 

C  ***  SUBROUTINE  USED  WITH  SHORTCUT  METHOD  ONLY  ******************* 

C***  PHYSICAL  PROPERTIES  ARE  CALCULATED  IN  THIS  SUBROUTINE  FOR  HYPOTHETICAL 
C***  COMPONENTS  TO  CALCULATE  CHAO-SEADER  K-RATIOS  AND  H-VALUES 

C*******  -  CAVETTES  METHOD  - 

COM MON /ONE /  CT ( 20 ) , PC ( 20 ) , W ( 20 ) , DEL TA ( 20 ) , Vl ( 20 ) , VAP ( 20 ) , A { 16 , o ) , 

1 A  A  0 B ( 5  1  ) t  ZZ ( 5  1 )  »  BBM I  X { 5 1 )  » DDEL  MX ( 5 1 )  , H  L I  0  »  H  V AP 
COMMON/TWO/  X ( 5 1 1  20  > , Y ( 5 1 , 20 ) , P , NCP . NTP , NFP ,BOT , D I  ST , AK ( 51 , 20 ) 

COMMON /THREE /JX , JA1 , J A2 , J A3 , J A 4 , J A5 , J A6 , J A7 , J XX , F R AC , F RC , A A ( 4 , 20 ) 
COMMON/FIVE/  REFXR,  BXI  (20)  ,DXI  (20) , TO , TW , TF , Fx ( 20 ) 

DIMENSION  X  M  T ( 2  0 »  2 ) 

DIMENSION  FI(20),DI(20),BI(20) 

33  FORMAT { IX, 3E14. 7) 

5  0  FORMAT (  1X,7F8.3,11X,2A6) 

M=NC  + 1 

CO  20  1  =  M »  NCP 

READ(5»50)BPCA» BMLA , BPMNA , TC 1 » PC  1 » AP I » XX WM , ( XMT (  I  ,  J  )  ,  J=  1 , 2  I 
READ  (5,33)  F I (  I )  , D I  ( I  )  , B  I  (I) 

SPG=l4l.5/(API+131. 5) 

I  F ( BPMNA. EQ.O. )  GO  TO  1 
GO  TO  2 

1  BPMNA= ( BPCA+BML A ) /2 . 0 

2  XRH 0=0. 98907* SPG 
VI  (  I  )  =  XX WM/XRHO 

UOP  K= (  ( BPMNA  +  45  9.6) **(  1. 0/3.0)  J/SPG 
IF ( TCI .EQ.O. )  GO  TO  3 
GO  TO  4 

3  I F { BMLA. EQ.O.  )  GO  TO  9 
BP* BMLA 

GO  TO  1  1 
9  BP=BPMNA 
11  CONTINUE 

TC 1=768. 071 21 +( 1.7133693-0. 108 34003 E-02* BP  )*6P 
TCl=TCl-0. 8921257 9E~02*API*BP  +0. 38890584E-06*BP  **3 

TCl=TCl+( ( 0. 5309492 0E-05+0. 327 1 1  600E-07* API ) *API ) *BP  **2 

4  CT (  I  )  =  TC 1 

IF { PCI .EQ.O. )  GO  TO  5 
GO  TO  6 

5  PC  1=2. 8  290406+ (  0. 94 1 20109E-03-0. 30474 749 E -05* BPMNA ) * BPMNA 
PC  i  =  PC  1-0.208  761 10E- 04* AP I* BPMNA +  0.  1 5 1 34 1 036- 08* BPMNA* *3 
PC  1=PC 1+ I  ( + .  110478996-0 7  +  0.  1 39496 19E-09* AP I ) *AP I ) *8PMNA**2 
PC  1=PC  1-0.48271 599E- 07* AP 1**2* BPMNA 

PC1  =  EXP  ( PC  1*  2.  303 ) 

6  PCI  I  )  =  PC1 

BP= BPMNA+459.6 

W(I)  =  (3.0/7.0)*(( AL0G(PC1/14.696)  ) / 2 . 30 3 ) / ( T C 1 / BP- 1 . 0 ) - L . 0 
D EH V=  (  7.5  8+4.571*1  A LOG ( BP  )  ) /2 . 303 ) * ( BPMNA  +  459. 6 ) / 1 . 8 
DEHV  =  DEHV  * (  (TC 1-537.  )/( TC 1- ( BPMNA  +  4  59. 6 )  )  )**0.38 
DEL  T  A  (  I  )  =(  (DEHV-592 .4 ) /VI (  1  )  )  **0.5 

AA (3,1)  =XXWM* ( 3.1073165fc-04-5.832381E-08*API ) 

A  A ( 4 , I )  =XXWM* (9.  174  5019E-1 1* API -5.63 34748E-08) 

HB=-. 8 18  6  2040+  ( -2 . 85 68654E-0 5+ 1 .  7024654E-06*AP I ) *  A  P I 

HB  =  HB-1 .4886832 E-08*AP 1**3  -3 . 0636492E-04*UQPK**3 

HB=HB+( 8. 839556 3E-0 2+4. 2934703E-03*U0PK) *UOPK 
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76  A  A ( 2 i I )  =XXwM*HB 

77  HB=  188.25000+1  3 . 5442502-1  5 . 2  7 1 6944E-02-3.  53  S3  777E-04*API  ) *API ) *API 

100  HB=FIB-(  6 .95  30784-3.5  l  1 8 58  1E-0  1  *UOPK  )  »UGPK**2 

L 0 1  H B  =  H 6  + ( 4 3 • 4 0 1 6  I  8-5. 956 3889E-03 *AP I ) *UOPK 

102  AA(  It  I )  =XXWM*HB 

103  20  CONTINUE 

105  RETURN 

106  END 
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ilBFTC  SRTCUT  NODECK 

SUBROUTINE  SRTCUT  ( D I , B I , XF I , V F I ,  SHFI , ILK, I HK , HXX , RARM , AN , S Z , DUG , 

1  DOR  , ITERP, RM  ) 

C  #********#  FENSKE-UNDER WOOD-MADDGX  SFIORTCUT  METHOD  ***************** 
COM MON /ONE/  C T ( 20) , P C ( 20)  , W( 20  )  , DELTA ( 20)  , Vi (20) , VAP { 20) , At  16,6) , 
1AA0BI51) ,  Z  Z  (  5  1 )  ,  8BM I  X ( 51 ) ,DD£LMX(51 ) ,HLIQ,HVAP 
COM MON /TWO/  X ( 5 1 , 20  )  ,  Y { 5 1 , 20 ) , P , NCP , NT P , NF P , BOT , D I  ST , AK ( 5 1 ,20) 
COMMON /THR EE / JX ,  JA1 , J A 2 , J A3 » J A 4 , J A5 , J A6 , J A7 , J XX , FR AC , FRC , A A ( 4 , 20 ) 
COMMON/FOUR/  AVP(50)  ,  ALP (50) ,T(50) 

COMMON/FIVE/  REFXR,  B X  I  ( 2 0  )  , DX I < 20 )  , TD , T W , TF , F X ( 20 ) 

COMMON/ S IX/  SHV ( 50 ) , SHL ( 50 ) , AL I 0 ( 50 , 20 ) , ABF ( 50 , 2 0 ) , ASF ( 50 , 20 ) 
DIMENSION  DI  ( 20  )  ,BI  ( 20  )  ,XFI ( 20) , YFI  (20) ,FK(20 )  ,DK(20 ) , 6K( 20 ) , ALPHA 
1(20)  , D I B I (20) 

DIMENSION  8(25)  ,C(25,25),D(25,25) 

DIMENSION  XD( 20 ) , YD ( 20) 

DIMENSION  XX( 20 )  , YY ( 20  ) 

REAL  LVM, LVO 

500  FORMAT ( IX, 10X»E14.7 ) 

501  FORMAT ( IX, 1 0  X  ,  5  E  1  4 . 7  ) 

CALL  IN2PUT  ( MX l ,  MX2 , B  , C , D ) 

DU  8  1  =  1,  NCP 
FK (  I  )=VAP (  I  ) 

CALL  HVAL ( TF , YY ,FX  ,2,NTP+2) 

HZ=HL IQ 

CALL  HVAL  ( TF , F  X  ,  XX  ,  1  ,  NTP  +  2 ) 
hy=hvap 
HX  X  =  HY 

Q=( HY— SHF  I  ) / ( HY-HZ ) 

WRITE(6,500)  Q 


8 


C 

C 

c 

c 


USING  FtNSKb  EQUATION  TJ  CALCULATE  MINIMUM  NUMBER  OF  THEORETICAL 
PLATES  AT  TOTAL  REFLUX 


32 

D  OX  =0 . 

33 

BBX  =  0 . 

34 

CO  4  1=1, NCP 

35 

U  D  X  =  0  D  X  +  0  I  (  I  ) 

36 

4 

BBX=BBX+BI ( I ) 

40 

DO  5  1  =  1,  NCP 

41 

DX  1(1) =0 1(1) /DDX 

42 

5 

ax  I  (  I  )  =B  I  (  I  ) /BBX 

44 

TL=TF+30. 

45 

TB=  TF—  30  . 

46 

21 

CONTINUE 

47 

GO  TO  ( 10, L I ) , JXX 

50 

10 

CALL  BUB  P  T  (DXI,TD 

51 

DO  9  1=1, NCP 

52 

9 

CK (  I  )  =  VAP (  I  ) 

54 

GO  TO  12 

55 

1  l 

CALL  DE W P  T ( DX I ,  TD, 

56 

DO  7  1=1, NCP 

57 

7 

DK  (  I  )  =  V  A  P  (  I  ) 

61 

1  2 

CONTINUE 

62 

CALL  BUBPT  ( BXI , TB 

63 

DO  6  1=1, NCP 
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64 

6 

66 

67 

70 

71 

13 

73 

74 

14 

75 

76 

15 

77 

16 

100 

103 

104 

105 

17 

107 

1 10 

111 

112 

115 

1 16 

18 

120 

121 

122 

123 

126 

127 

20 

130 

19 

132 

135 

136 

22 

137 

144 

145 

SOURCE  STATEMENT 

BK (  I  )  =VAP  {  I  ) 

CALL  HVAL  ( TB , Y Y , BX I  , 2  ,  NTP ) 

SHBI=HL 10 
DO  13  1=1, NCP 

ALPHA ( I ) = ( DK ( I ) /DK ( IHK) *FK  ( I ) /FK( IHK) *  BK  ( I )/BK( IHK) ) **0.333333 
GO  TO  ( 14, 15 ) ,JXX 

A  N  =  A  L  0  G  (  D  <  I ( ILK ) /DX I (  IHK) *BXI (  IHK) /BX  I  ( ILK)  )/ALOG( ALPHA! ILK)  ) 

GO  TO  16 

AN  =  ALOG ( OXI (  ILK  ) /DX I ( IHK) *BXI ( IHK) /BXI  (  I  LK)  )  / ALOG ( ALPHA ( ILK )) -1.0 
DO  17  1=1, NCP 

IF ( I .EQ. ILK. OR. I .EQ . IHK)  GO  10  17 
DIB  I ( I )= ALPHA! I  ) **AN*DI ( IHK ) /BI  ( IHK) 

D 1 (  I  )  =  { D I (  IHK ) /B I ( IHK) * ALPHA ( I  )  *  *  AN  *  F  X (  I  )  )/(l.+DI(IHK)/BI(  IHK)* ALP 
1 H  A  {  I  )  *  *  A  N  ) 

CONTINUE 
WRITE (6, 300)  AN 
01  ST  =  0. 

DO  18  1=1, NCP 

IF( I.EQ. ILK. OR. I .EQ. IHK)  GO  TO  18 
BI (  I )=DI  (  I )/DlB  I  (  I  ) 

D I S  T  =  D I S  T  +  D l  (  I  ) 

CK  =  0 . 

DO  19  1=1, NCP 
CX  =  D I (  I  ) /O I  ST 

I F ( ABS(CX-DXI ( I ) ) .LE. 1.0E-04)  GO  TO  20 
CK  =  1. 

DX  I  (  I  )=CX 

BXI (  I  ) =B  I  (  I  )/(  l.-DIST) 

IFICK.LE.O.  )  GO  TO  2  2 
GO  TO  21 
BOT  =  i  .-DIST 

WRITE(6,501)  (ALPHA!  I  ),  1  =  1, NCP  ) 

WR I TE ( 6 , 500 )  TD 
WRITE (6, 500)  TB 


C 

C  MINIMUM  REFLUX  IS  CALCULATED  BY  THE  UNDERWOOD  METHOD 

C  THE  GOLDEN  SECTION  SEARCH  IS  USED  TO  SOLVE  THE  UNDERWOOD  EQN'S 

C 


146 

147 

150 

151 

152 

153 

154 

155 
157 
160 

163 

164 

165 

166 
167 
1  70 
172 


1  =  0 

Z 1= ALPHA ( IHK ) 

Z2=ALPHA ( ILK ) 

32  CONTINUE 

CALL  GOLDIT  (  I , Z 1  ,  Z 2 , Z  ,  FZ , Z A , Z B , F Z 1 , F Z2 ) 
F  Z  =  0  . 

DU  2  3  J=  1 , NCP 

23  FZ=FZ+(ALPHA(J)*FX( J ) )/(ALPHA(J)-Z) 
FZ=ABS(FZ+l.-0) 

I  F ( FZ.LE.  1.0E-05)  GO  TO  24 
GU  TO  32 

24  S  =  0  . 

WRITE(6,500)  Z 
WR I TE ( 6, 500 )  FZ 
DU  25  1=1, NCP 

2  5  S  =  S  +ALPH  A  (  I)«DXHI)/(ALPHA(I)-Z) 

RM  R  =  S— 1 . 
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173 
l  7  A 
17b 
1  76 
200 
20  1 
202 
20  3 
206 
207 
210 
211 
212 

213 

214 

215 


2  6 


2  7 
28 


7  1 


C 

C 

c 


216 

2  17 

<*1 

220 

221 

222 

22  3 

49 

225 

226 

40 

227 

48 

2  31 

42 

232 

2  3  3 

44 

235 

2  36 

237 

240 

4  3 

242 

243 

244 

245 

246 

247 

55 

250 

251 

52 

252 

53 

253 

254 

255 

256 

257 

262 

263 

2  64 

265 

WR I TE ( 6  »  500  )  RMR 
S  =  0  . 

DO  26  1=1, NCR 

S  =  S  +  ALPHA!  I  )  *BX  I  ( I  )  / ( ALPHA (  I  )-Z ) 

RMB=(-S*BOT+(  l.-FRAC  )-DIST)/DIST 
WR I TE ( 6 , 500 )  RMB 
RM=  RMR-RMB 

IF ( RM.GE.O. )  GO  TO  27 

RM=RM6 

GO  TO  28 

R  M  =  R  M  R 

CONTINUE 

WRITE (6,500)  RM 

REF XR=RM *R ARM 

J  F  F  =  0 

CONTINUE 

SHORTCUT  REBOILER  AND  CONDENSER  HEAT  LOADS  ARE  CALCULATED 

GO  TO  (40,41 ) , JXX 
DFRAC  =  REFXR/ ( REFXR+1.  ) 

DO  49  1=1, NCP 
Y  D (  I  )  =  DX 1(1) 

XD(  I  )  =  DX I (  I  ) / OK (  I  ) 

Y(  1,  I  ) =DFRAC  *XD ( I )+(  1 . -DFRAC ) *  YD ( I ) 

GO  TO  42 
DO  48  1=1, NCP 
Y(  1 , I ) —  D X  I (  I  ) 

T (  1  )=TU 
DO  44  1=1, NCP 
YY (  I  )  =  Y (  1  ,  I  ) 

CALL  DEWPT  ( YY, T(  1  )  ,  1  ) 

WRITE(6,500)  T (  1) 

DO  43  1=1, NCP 
XX ( I )=0X 1(1) 

CALL  DISTIL  (TD,XX,SHDI , HDV , NT P+ L , YD , XD , R6FXR , HDX , HD Y , T(l) ) 
WRITE(6,500)  SHDI 
WRITE (6, 500)  HDV 
DOC  = ( HDV-SHD I  )*DIST* (REFXR+1.) 

GO  TO  ( 55 , 52  )  , J  XX 
DXD=SHD I 
GO  TO  53 
DXD=HDY 

DQR=  DXD  *DI ST+SHBI * ( 1 .-D 1ST )-SHFI +DQC 

WRITE (6, 500)  DQR 

WRITE(6,500)  DQC 

VK  =  REFXR*L)IST+DIST 

WRITE  (6,500)  VK 

IF(JFF.EQ.l)  GO  TO  33 

LVM=( RM*DIST ) /( RM*DI ST+DI ST ) 

LVO=( VK-DI ST ) /VK 
WRITE (6, 500)  LVM 
WRITE (6, 500)  LVO 


C 

C 


LINEAR  OR  LAGRANGIAN  INTERPOLATION  IS  MADE  OF  THE  MADDOX  CHARTS 
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C  TO  OBTAIN  OPPERATING  REFLUX  AND  THE  NUMBER  OF  IDEAL  STAGES 

C 


266 

GO  TO  (75,76),! TERP 

267 

75 

CALL  INTtRP  (MX1,MX2,B,C,D,LVM,L\/0,SMS) 

270 

GO  TO  77 

271 

76 

CALL  IUTRP  { MX  1  ,MX2  ,B  ,C  ,D,LVM  ,LVO, SMS) 

272 

(1 

SZ  =  AN/ SMS 

2  73 

wRITE(6,500)  SMS 

274 

WR I TE ( 6 , 500 )  SZ 

275 

S  1  =  1 . 

276 

35 

DEL=SI-SZ 

277 

I  F ( DEL. GE. 0.0)  GO  TO  37 

302 

SI=SI+1. 

303 

GO  TO  35 

304 

37 

DEL  =  ( TB-TD ) /S  I 

305 

NTP  =  S I 

30  6 

ANFP= { TF— TD ) /DEL 

307 

NFP= ANFP 

310 

GO  TO  { 33, 34,34 ,34) , JX 

311 

34 

CON  T  INUE 

312 

GO  TO  (50,51) , J  XX 

313 

50 

ALL=VK 

314 

GO  TO  36 

315 

5  1 

ALL=VK-D 1ST 

316 

36 

VK  -M K  +  ( l.-DIST)*( SHF I-HZ ) / ( DQC/ALL ) 

317 

REFXR=( VK-DIST) /DIST 

320 

JFF=  1 

321 

GO  TO  71 

322 

33 

CONTINUE 

323 

TW  =  TR 

324 

TD=TO— 459 . 6 

325 

T  F=  T F-459 . 6 

326 

T  W  =  T  W— 45  9 . 6 

32  7 

RETURN 

330 

END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


I  SN 


0  $  I BF  TC  TEMP  NODECK 

1  SUBROUTINE  TEMP  (TX,N  ) 

C  ********  SUBROUTINE  USED  WITH  THIELE  GEODES  PROCEEDURE  ONLY  ******* 
c  ******  NEW  TEMPERATURE  PROFILES  ARE  CALCULATED  ********* 

2  CUMMON/ONE/  C T ( 20 ) , PC ( 20 )  ,  W ( 20 ) , DEL T A ( 20 )  ,  V I ( 20 )  , V AP ( 20 ) , A ( 1 6 , 6 ) , 

1 A  A  0  B  (  5  L  )  tlH  51)  *  8BM  I  X  (  5  1  )  ,QL)cLMX(51  )  ,HLIQ,HVAP 

3  COMMON /TWO/  X ( 5  l , 20 ) , Y ( 5 1 , 20  )  , P , NCP ,NTP, NFP , 60T, DI ST , AK( 5  L ,20) 

4  COMMON/ THREE/ JX , J A 1 , J A 2 , J A3 , J A 4 , J A  5 , J A6 , J A7 , J XX , FR AC , FRC , A A { 4 , 20 ) 

5  L  2  FORMAT  (1X,16H**»  ERROR  06  ***  ,  42H  TEMP  MURE  THAN  THIRTY  TRIALS  A 

IRE  REQUIRED  ) 


6 

7 

LO 

1  L 
1  2 

13 

14 
17 
20 

2  L 
23 
26 

31 

32 
34 
37 

40 

41 
44 
47 

50 

51 

52 

53 

54 

55 

56 

57 
60 


K  I  =  L 

310  CALL  KVAL  { TX,N  ) 

S  U  M  Y  =  0  . 

0  =  0  . 

DO  300  1=1, NCP 
CON  L=V  AP (  I  )  *X (N , I ) 

I F ( ABS ( Y ( N , I )  -CUN  1 ) .LE. L.0E-04)  GO  TO  301 

0=1.0 

301  Y(N,I)=C0N1 
300  S  U  M  Y  =  S  U  M  Y  +  C  0  N 1 

I F ( ABS ( SUMY- L . 0 ) . GT  *  1 . 0E-04 )  GO  TO  303 
IFIO.LE. 1.0E-04)  GO  TO  330 
30  3  DO  302  1  =  1  » NCP 

302  YIN,  I  )=Y(N, I ) /SUMY 

IF  { K 1  .GT .30)  GU  TO  32  0 
K I  =  K 1+  1 

Q=TX*{ 1 .0+1  1. O-SUM Y  1/5.0) 

IF( ABS(Q-TX) .LT.30.0)  GO  TO  8 
IF ( (SUMY-1.0) .GE.O. )  GO  TO  7 
TX=TX+30.0 
GO  TO  310 

7  TX=  T  X—  30 . 0 
GO  TO  310 

8  T  X  =  Q 

GO  TO  310 
320  WRITE! 6,  12 ) 

330  CONTINUE 
RETURN 
END 
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SOURCE:  STATEMENT 


FORTRAN  SOURCE  LIST 


1  SN 


0  1I6FTC  THETA  NODECK 

1  SUBROUTINE  THETA  ( THET  I  ,  FX , B ID  I  ) 

C***  SUBROUTINE  USED  WITH  BOTH  BERG AM I N I  AND  THIELE  GEDDES  PROGRAMS  *** 
0  -K-int***»-*«-'ti--jMj-K-*THETA  CONVERGENCE  METHOD  **■«•**•***»»*£ 

2  COM MON /TWO/  X ( 5  1 , 20 )  ,  Y ( 51 ,20 ) , P , NCP ,NTP, NFP , BOT , DI ST , AK ( 51 , 20 ) 

3  DIMENSION  F X ( 20  )  , B 1 D I ( 2 U ) 

4  THET1= 1 • 0E-10 


5 

1 1  1 

G  T  H  T  =  0  . 

6 

G  THTP  =  0 . 

7 

DO  110  1  =  1  ,  IM C  P 

10 

110 

GTHT=GTHT  +  FX(  I  ) /(  1 . +THET1 *B I U I  (  I )  ) 

12 

GTHT=GTHT-DIST 

13 

IF{ GTHT**2.LE.l .0E-08)  GO  TO  112 

16 

DO  92  1  =  1,  NCR 

17 

92 

GTHTP  =  GTHTP-( FX (I)*6IDI ( I  ) ) / (  1 .  +  THE T1 *BI D I ( I ) ) / ( 1 . +THET 1 *B I D I { I ) ) 

21 

ThETl=THET 1-GTHT/GTHTP 

22 

GO  TO  111 

23 

112 

CONTINUE 

24 

RETURN 

25 

END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


ISN 


0 

1 


2 

3 

6 

I  1 
L2 
L  3 

14 

15 

16 
17 
20 


$  I  BE  T C  VLTEST  NODECK 

SUBROUTINE  VLTEST  (XXX,  XXXI, N) 

C***  SUBROUT  I  ME  USED  WITH  BOTH  BERGAM  INI  AND  THIELE  GEODES  PROGRAMS  *** 
C****«»*«*  LIMITS  THE  AMOUNT  OF  CHANGE  IN  THE  VAPOUR-LIQUID  PROFILES 
DIMENSION  XXX( 50)  ,XXX1  ( 50) 

IF( A8S(XXX(N)-XXX1(N) ) . L T . 0. 2* XX X 1 ( N) )  GO  TO  1100 
I F ( (XXX(N)-XXXl(N) ) .LT.O.O)  GO  TO  1101 
XXX ( N  )  =  1  .  2  *  X  X  X 1 (N) 

GO  TO  1100 

1101  XXX (N)=0.8*XXX1 (N) 

1100  CONTINUE 

XXX ( N  )  =  ( XXXl(N) +  X  X  X ( N )  )/2.0 
XXX1(N)=XXX(N) 

RETURN 

END 
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$  I  BFTC  VPLQP 

SUBROUTINE  VpL  +  p  (  DOC  *  DuR  >  SHU  1  * SHF  i  > A  VP1  »HuX  »  HL)  Y  ) 

********  SUBROUTINE  USED  WITH!  T  H I E L  E  GEDDlS  pRl>CEEDUKE  ^i'h-Y  ******* 
******  NEW  VAPOUR-LI UUID  PROFILES  ARE  CALCULATlD  ******** 
****************  o  Q  y  t  u  i  •  I  UP  EN  THAOP  Y  n  A  L  L  j\  i  <  c  t  s  *  *  *  *  * *  -k  *  *  *  *  *  ■+  *  «■  -a-  •+  -a-  « *  « 

COMMON  /Two/  X  (  51  »20,)  *  Y  (  51  *20  )  >R  *  NCR  *  rtTR  *  upR  >  BoT  *DIST  *  AM  51  >  20  ) 

COMMON/ THREE/ JX j JA1 * JA2 * JA3 > JA4* JA5 * JA6 * JA7 * JXX *FRAC* FRC* AA ( 4* 20 ) 
COMMON/FOUR/  AVP (50 )  * ALP ( 50 )  >  T (50) 

COMMON/SIX/  SHV  (  50  )  »  SHL  (  50  )  »  AL-IO  (  50  *  20  )  *  ABF  (  50  *  20  )  >ASF  (  50  *  20  ) 

DIMENSION  AVP 1(50) 

GO  TO  (210*220 ) * JXX 
210  XXXX=SHDI 
GO  TO  230 
220  XXXX=HDX 
23J  CONTINUE 

AVP  (  NTP  )  =  (  B^T*  (  SPiL  (  NTH)  “SH«-  ( i<TP“l  )  )  “D^K  )  /  (  SHl  (  imTp~1  )  ~SHV  (  '^Tp  )  ) 

CALL  VLTEST  ( AVP , AVP 1  * NTP ) 

M-NTP 

M  X  =  N  T  P  ~  N  F  P  ~  1 
DO  73  N  =  1 *  MX 
M  K  =  M  -  N 
N  K  =  M  K  —  1 
JK=MK+1 

A  VP  (  MK  )  =  (  3  O  T  ■*•  (  S  H  L  (  M  K. )  -  S  H  l  (  N  K. )  j  -  (  SHV  (  JN  )  ~SHL  (  MK  )  )  *AVP  (  +  N  )  )  /  (  SHL  (  .mIS 

1 ) -SHV(MK) ) 

CALL  VLTEST  ( AVP , AVP 1 , MK ) 

73  ALP(MK) =AVP( JK)+BOT 
ALP ( NFP ) =AVP (NFP  +  :  ) +BOT 
ALP(NTP)=EOT 

AVP  (  PiFP  )  =  (  O I  S  |**SHL  (  N F P ~  1  )+30T*SHL  (  NFP  )  “SHF  I  “  (  SHV  (  imFP+1  )  “SHL  (  infP  )  )  * 

1 A VP ( N  F  P  + 1 )  ) / ( SHL ( r FP~l ) -SHV ( NFP )  ) 

CALL  V L T E S T  ( AVP  *  aVP 1  * NF p ) 

M= NFP-2 
DO  74  1=1 *M 

t  *  |vj  =  fsj  f  p  —  j 
fvi  n  =  MM—  1 

AVP ( MM ) = (  D I  ST* ( SHL ( NN) ~SHL ( MM )  )  —  ( SHV ( MM+i ) ~SHL ( MM )  ) *AVP ( MM+l )  ) / ( S 
1HL ( NN ) -SHV ' MM ) ) 

CALL  VLTEST  ( AVP » A VP 1  * MM ) 

74  ALP ( MM ) =AV° ( MM+l ) ~D 1ST 

AVP (  1  )  =  (  DIST* ( XXXX-SHL ( 1 )  ) - ( SHV ( 2 )“SHL ( 1 )  ) *AVP ( 2 )  ) / ( XXXX~SHV ( 1 )  ) 

CALL  VLTEST  (AVP*AVPi,i) 

ALP ( 1 ) = A V  P ( 2 ) -DIST 
RETURN 
END 
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lb 
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37 


$  I  8FTC  VP1LPQ  NOCECK 

SUBROUTINE  VPLQP  ( DQC , DQR , SHD I , SHF  I , A  VP  1 , HDX ,HDY ) 

C  * **  ** * **SUBRDUT  INE  USED  WITH  THIELE  GEODES  PRUCEEDURE  ONLY******** 

C  ******  NEW  VAPOUR-LIQUID  PROFILES  ARE  CALCULATED  ******** 

C  ************  ENTHALPY  BALLANCbS  FROM  BOTH  ENDS  OF  COLUMN  *********** 
COMMON/ TWO/  X(b  1,20) ,Y (51,20) , P , NC P , NTP , NFP , BUT , D I  ST , AK ( 5 1 , 20) 

C  0  M  MON  /  T  H  R  E  E  /  J  X  ,  J  A 1  ,  J  A  2  »  J  A  3  »  J  A  4 ,  J  A  5  ,  J  A  6  ,  J  A  7  »  J  X  X  ,  F  R  A  C  »  F  R  C  ,  A  A  (  4 , 2  0  ) 
COMMON /FOUR/  AV P ( 50  )  , ALP ( 50 )  , T ( 50 ) 

COMMON/FIVE/  REFXR,  BX  1  ( 20  )  , DX I ( 20 ), TD  ,  TW , TF , FX ( 20 ) 

COMMON/ SIX/  SHV(bO) , SHLI50) , AL I Q ( 50 , 20 ) , ABF ( 50 , 2 0 ) , ASF { 50 , 20 ) 
DIMENSION  AVP  1<50) 

GO  TO  (  2 10 ,220)  , JXX 
210  XXXX=SHD I 
GO  TO  230 
220  XXX X  =  HDY 
2  30  ALP (NTP ) =  B 0 T 
M  =  NTP 

MM  =  NTP— NFP 
DO  135  N=  i  » MM 
MK=  M-N 
NK=MK+1 

AVP ( NK )  =  ( BO  T* ( SHL ( NT  P )  -SHL ( MK ) ) -DQR ) / ( SHL ( MK ) -SHV { NK )  ) 

CALL  VLTEST  ( AVP  ,  AVP  1  ,NK ) 

ALP ( MK ) = A VP ( NK ) +BOT 

135  CONTINUE 

AVP(  I  )=REFXR*DIST+DIST 
MM=NFP- 1 
DO  136  N- I , MM 

AVPIN  +  1 )  =  ( DIST  *  (  XX  XX- SHL ( N ) ) +  DQC ) / ( SH V ( N+ 1 ) -SHL ( N  )  ) 

CALL  VLTEST  ( AVP , AVP 1 , N+  1  ) 

136  ALP ( N ) =AVP ( N  + 1 ) -DI ST 
RETURN 

END 
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